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SECTION  1 
INTRODUCTION 


1.1  PURPOSE 

The  purpose  of  this  document  will  be  to  delineate  the  detailed 
program  documentation  for  Computer  Output  Microfilm  System  A in 
Bldg.  30,  NASA  JSC  (COMA). 

1.2  SCOPE 

Paragraph  1.3  of  this  document  delineates  the  applicable  documents 
which  apply  to  this  system.  Paragraph  1.4  provides  an  overall  view 
of  the  system  and  describes  the  functional  relationship  between 
the  system  software  (described  in  SISO-TR531,  Vol.  I),  the  stand- 
ard insert  routines  (described  in  SISO-TR531,  Vol.  I),  and  the 
applications  programs  (described  in  section  2 of  this  volume). 
Appendix  A contains  instructions  for  locating  those  documents 
delineated  in  paragraph  1.3.  Appendix  B contains  Test  Prepara- 
tion Sheets,  NASA  JSC  Form  1225,  for  all  baseline  and/or  program 
modification  acceptance  tests.  The  documentation  for  each  of  the 
application  programs  (section  2)  consists  of  the  following  major 
headings: 


2.X 

TITLE  OF  PROGRAM 

2.X. 1 

Background 

A. 

Author 

B. 

Intent 

C. 

Program  History 

2.X.  2 

Introduction 

2.X, 2.1  Hardware  Requirements 
2.X. 2. 2 Software  Requirements 
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2.X.2.3  Assembly  rarameters 
2.X. 2.4  Operator  Commands 
2 .X. 3 Analysis 

2.X. 3.1  Major  Control  Section 

A.  Description ' 

B.  Input/Output 

C.  Linkages  (External  and  Internal) 

2.X. 3. 2 Subroutines 

2.X. 3. 3 Constants  and  Variables  (External  and  Internal 
2.X. 3.4  Flow  Charts 
1.3  APPLICABLE  DOCUMENTS 

The  following  documents.,  of  the  latest  issue  in  effect,  are-  appli 
cable  as  specified  herein. 

1.3.1  Requirements  Specifications 

© PHO-TN598  - FR80  Gray  Level  Processing  Requirements  Specifj 
cation 

® SH-09607A  - COM  System  Data  Processing  Requirements  Specify 

cation 

® SB- 09832  - FR80  Skylab  Solar  Experiment  S055  Processing 
Requirements  Specification 

© SH- 09846  - Computer  Output  Microfilm  System  A (COMA)  Univac 
494  Print  Processing  Requirements  Specification 
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• 5H-Zb/Ub  - computer  uutpui  Microrum  ayscem  /v  PDP  Print 
Processing  Requirements  Specification 

e SH-25722  - FR80  Harvard  College  Observatory  Solar  Experi- 
ment S055  Processing  Requirements  Specification 

• SH- 25752  - Computer  Output  Microfilm  System  Varian  73  Print 
Processing  Requirements  Specifications 

9 SH-25812  - Computer  Output  Microfilm  System  A Large  Area 

Crop  Inventory  Experiment  Software  Requirements  Specifi- 
cation. 

1.3.2  Test  Specifications 

9 PHO-TN60 5 - FR80  Gray  Level  Test  Tape  Requirements  Specifi- 
cations 

9 SH-09606A  - COM  System  Test  Tape  Requirements  Specification 

9 SH-09833  - Skylab  Solar  Experiment  S055  Test  Tape  Require- 

ments Specification 

• SH- 09 851  - Computer  Output  Microfilm  System  A Univac  494 
Print  Processing  Test  Tape  Requirements  Specification 

e SH-25713  - Computer  Output  Microfilm  System  A PDP  Test  Tape 
Requirements  Specification 

9 SH- 2 5 72  3 - FR80  Harvard  College  Observatory  Solar  Experiment 
S05 5 Test  Tape  Requirements  Specification 

e SH- 25 769  - Computer  Output  Microfilm  System  A Varian  73 
Print  Processing  Test  Tape  Requirements  Specification. 

1.3.3  Acceptance  Test  Procedure 

SB-09613A  - COM  System  Acceptance  Test  Procedure. 
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1.4  OVERVIEW 

The  Computer  Output  Microfilm  System  consists  of  a series  of  pro- 
grams which  converts  digital  data  from  magnetic  tapes  into  alpha-  1 
numeric  characters,  graphic  plots,  and  imagery  that  is  recorded 
on  the  face  of  a cathode-ray  tube.  A special  camera  photographs 
the  face  of  the  tube  on  microfilm  for  subsequent  display  on  a 
film  reader.  The  software  which  is  used  to  accomplish  this  is 
divided  into  three  distinct  categories: 

« Systems  Software  (SISO-TR531,  Vol.  I) 

o Standard  insert  routines  (SIS0-TR531,  Vol.  I) 

• Applications  software  (section  2)  , 

The  systems  software  consists  of  the  assembler  and  various  utility 
programs.  The  assembler  is  a two-pass  macro - as s emb 1 er . The 
utility  programs  include  the  Text  Editor,  Tape  Dump  Reloader, 

Disk  Dumper,  Magnetic  Tape  Display,  and  Disk  Audit  Programs. 

The  standard  insert  routines  are  used  in  each  of  the  application 
programs.  They  include  the  operating  monitor,  vector  routines’, 
character  sets,  character  routines,  magnetic  tape  routines  and 
film  advance  routines. 

Applications  software  has  been  developed  for  processing  of  print, 
graphic  and  imagery  data  tapes  for  the  following  systems: 

• IBM  360/75 
® Univac  494 

• Varian  73 

• PDP  11/45 

© Digital  television  equipment  36-  and  48-bit  data  format 

• Harvard  College  Observatory  (HCO)  Solar  Experiment  S055 
® Large  Area  Crop  Inventory  Experiment  (LACIE)  print  data. 
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SECTION  2 

APPLICATION  PROGRAMS 


The  application  programs  that  follow  have  been  developed,  on  the 
COM- System  to  process  print,  graphic,  and  image  da-ta  from  7-  or 
9-track  magnetic  tapes  to  be  output  to  16  mm  microfilm  or  105  mm 
microfiche . 

Information  pertaining  to  control  codes,  character  sets,  input 
formats,  output  formats,  etc.  for  each  individual  program  can 
be  found  in  that  program's  software  requirements  specification 
in  Appendix  A. 

2.1  COMA  DTE  PROCESSORS  FOR  16  mm  FILM  (16DT36,  16DT48)  AND  105 
mm  FICHE  (105DT6,  105DT8) 

2.1.1  Background 

A.  Author.  W.  T.  Jackson,  Aeronutronic  Ford  Corporation. 

B.  Intent . The  DTE  Processors  process  9-track  magnetic 
tapes  formatted  in  36-bit  and/or  48-bit  digital  television 
equipment  (DTE)  language  as  delineated  in  SH-09607A. 

1.  I6DT36  processes  9-track  magnetic  tapes  formatted  in 
36-bit  DTE  on  16  mm  microfilm. 

2.  16DT48  processes  9-track  magnetic  tapes  formatted  in 
48-jDit  DTE  oh  16  mm  microfilm. 

3.  105DT6  processes  9-track  magnetic  tapes  formatted  in 
36-bit  DTE  on  105  mm  microfiche. 

4.  105DT8  processes  9-track  magnetic  tapes  formatted' in 
48-bit  .DTE  on  105  mm  microfiche. 


C.  Program  History 


1.  Production  Tape  Date.  TBP 


2.  Author.  W.  T.  Jackson 
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3.  Authorization . EO-005F 

4.  Test  Case.  Acceptance  test  procedure  SB-09613A 

5.  Revisions ♦ Reference  Appendix  B,  paragraph  B.l. 

2.1.2  Introduction 

2. 1.2.1  Hardware  Requirements  - 
o FR80  with  12K  memory 

• 9-track  magnetic  tape  unit 
© 16  mm  unsprocketed  camera 

© 105  mm  camera 

2. 1.2. 2 Software  Requirements 

The  following  files,  found  in  I.I.I.'s  SYM  Directory,  are  required. 


III109 

III164  Film 

III161  GO 

II 1166 

III163 

III187 

III164 

III147 

FLOAD 

III162 

III161 

III185 

III186 

.2.3  Ass  emb ly 

Parameters 

The  assembly  parameters  in  III109  shall  be  set  for  the  proper 
machine  configuration.  Assembly  parameters  specific  to  the  DTE 
processors  are  as  follows. 

A.  CAMNUM.  If  2,  indicates  16  mm  unsprocketed  camera;  if  7, 
indicates  105  mm  microfiche  camera. 

B.  TWOBUF,  If  1,  indicates  two  magnetic  tape  buffers  for 
higher  throughput. 
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C.  BIGBUF . If  0,  allows  maximum  amount  of  operator  functions 
with  minimum  buffer  space. 

D.  DASHED . If  1,  assembles  code  for  generation  of  dashed 
vectors. 

E.  CIRCLE . If  1,  assembles  code  for  generation  of  circles 
and  arcs. 

F.  LOCASE . Lower  case  character  set  required. 

-G.  EBCDIC.  Entire  EBCDIC  character  set  required. 

H.  7TRACK.  If  0,  7-track  magnetic  tape  handler  not  required. 

I.  9TRACK.  If  1,  9-track  magnetic  tape  handler  is  required. 

J . PTYPE  = 3.  EBCDIC  forms  loader. 

K.  MUMBLE . If  1,  defines  system  configuration  output  via 

teletype  during  assembly. 

L.  FONT . If  0,  assembles  standard  III  character  font. 

M.  - TAPELB . If  1,  defines  code  to  provide  processing  of  IBM 

standard  tape  labels. 

N.  DTE.  If  1,  defines  code  specifically  for  the  36-bit  DTE 
processors. 

°*  NASA.  If  1,  assemble  NASA  specific  character  set. 

P.  D48 ; If  1,  defines  code  specifically  for  the  48-bit  DTE 
processors . 

Q.  ALLOW . Defines  code  to  allow  form  loading  and  processing. 

R.  FTYPE . If  105,  defines  code  for  generation  of  105  mm 
microfiche . 

s*  MANYUP ♦ If  defines  code  for  multiple  images  per  frame 
for  105  mm  microfiche. 
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2.1. 2.4  Operator  Commands 

A.  The  following  commands  are  available  for  use  with  either 
the  16DT36  or  16DT48  Program. 

TIME 

FRAME 

STRIP  CHART 
GO 

CONTINUE 

CLEAR 

REWIND 

SKIP 

TRY  AGAIN 

STANDARD  LABELS 

UNLABELED 

FOCUS 

PULLDOWN 

ROTATED 

UPRIGHT 

SETS3LZE,  PULL  DOWN 

B.  The  following  commands  are  available  for  use  with  either 
the  105DT6  or  10SDT8  Program. 

TIME 
FRAME 
GO  . 

CONTINUE 
TITLE 
END  JOB 
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CLEAR 

REWIND 

SKIP 

TRY  AGAIN 
STANDARD  LABELS 
UNLABELED 
FORM' 

INDEX  FORM 
2 . jL  3 Analysis 

2 . 1 . 3 . 1 . Major  Control  Section 

A.  Description . Upon  issuance  of  a GO  command'  by  the  operator 
via  the  console  teletype,  the  III  routine  PSTART  transfers 
control  to  the  DTE  processing  routine  BEGIN.  BEGIN 
initializes  all  switches,  does  initial  camera  advancing 
and  positioning  using  the  III  routines  FC7CLR,  FRSPIC,  and 
NEXPIC,  determines  the  location  and  size  of  the  data  input 
buffer,  calculates  the  X and  Y scaling  factors  for  center- 
ing the  image  in  the  16K  by  16K  area,  and  transfers  con- 
trol to  GETCOM. 

GETCOM  initializes  parameters  to  access  a DTE  data  word 
and  transfers  control  to  BITCNT.  BITCNT,  using  the  III 
routine  MTBYTE-,  accesses  the  number  of  data  bits  requested 
by  GETCOM  and  transfers  control  to  GETOP  with  the'  data 
bits  in  the  AC  (up  to  18  bits  per  access). 

When  a magnetic  tape  read  is  initiated,  and  it  is  the 
initial  read  for  a job,  a test- is  made  by  BITCNT  for  COM. 
controls.  If  COM  controls  are  not  present,  the  data  is' 
ignored  and  the  next  data  record  is  accessed.  This  pro- 
cedure is  repeated  until  the  first  COM  control  record  is 
read.  When  the  first  COM  control  record  is  accessed, 

BITCNT  checks  for  an  S,  T,  F or  I identifier  in  the  second 
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.byte  of  the  record.  When  processing  16  mm,  all  COM  con- 
trol records  are  skipped,  with  control  being  passed  to 
CUTMAK  for  output  of  cutmarks . Film  is  advanced  to  the 
next  frame  via  NEXPIC,  and  control  returns  to  BITCNT. 

When  processing  105  mm  and  the  identifier  is  an  S or  T, 
the  record  is  moved  to  the  buffer  TITARE  for  output  via 
the  III  routine  FICTAP.  When  the  identifier  is  an  F, 

DTFORM  switch  is  set  for  forms  overlay  processing  and  a 
check  is  made  to  determine  if  indexing  is  requested.  If 
so,  INXSSW  is  set,  the  position  and  number  of  characters 
for  indexing  is  set,  and  control  is  returned  to  BITCNT. 

All  records  following  the  first  COM  control  record  are 
either  1)  ignored  for  105  mm  processing  until  a second 
COM  control  record  is  accessed,  or  2)  processed  by  PROC76 
as  EBCDIC  data,  for  16  mm  recording,  until  a second  COM 
control  record  is  accessed.  BITCNT  processes  the  second 
COM  control  record  in  the  same  manner  as  the  first  and 
transfers  control  to  GETOP  for  processing  of  DTE  data. 

When  an  EOF  is  accessed,  the  job  is  complete  and  control 
is  returned  to  the  operator.  GETOP  determines  from  the 
DTE  op  code  the  type  of  DTE  data  word  to  be  processed. 

The  following  paragraphs  delineate  the  processing  done 
for  each  type  of  DTE  data  word. 

When  the  DTE  word  is  a command,  GETOP  transfers  control  to 
ENDLN.  ENDLN  does  a check  to  determine  if  the  word  is  a 
jump.  When  the  word  is  not  a jump,  it  is  ignored  and 
control  is  returned  to  GETCOM.  When  the  word  is  a jump, 
control  is  transferred  to  NEXFRM  for  output  of  forms  over- 
lay or  cutmarks  and  advance  to  next  frame  via  NEXPIC.  If 
the  strip  charting  option  has  been  selected,  the  cutmark 
output  will  be  inhibited.  Control  is  then  returned  to 
GETCOM. 

When  the  DTE  word  is  a vector,  the  XjYjt  and  X2Y2  coordinate 
are  calculated  and  placed  in  XHD,  YHD,  XTL,  and  YTL.  Con- 
trol is  transferred  to  MAP,  which  scales  the  heads  and 
tails  to  the  Image  size  specified  by  DFRSZ-.  The  X and  Y 
DAC’s  are  set  via  SETXYS,  the  vector  is  output  by  DRWVEC, 
and  control  returned  to  GETCOM. 
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When  a START  PRINT  word  is  accessed,  TYPSW  (the  typewriter 
switch)  is  set  to  allow  processing  of  typewriter  words. 

The  character  and  character  size  are  then  masked  from  the 
START  PRINT  word  and  used  to  calculate  the  corresponding 
FR80  character  and  character  size.  This  size  is  used  for 
all  characters  until  changed  by  another  START  PRINT  word. 

The  INXSSW  switch  is  checked,  and  if  it  is  set,  the  X and 

Y coordinates  of  the  START  PRINT  word  are  checked  against 
those  found  in  the  form  and  index  control  record.  When 
the  coordinates  do  not  match,  control  is  transferred  to 
NOINDX.  When  the  coordinates  match,  control  is  trans- 
ferred to  STARTX.  STARTX  sets  the  STOCSW  switch,  which 
causes  the  next  n-1  typewriter  characters  (n  = number  of 
characters  specified  in  the  index  record)  to  be  stored  as 
the  index  record  entry  for  this  frame,  sets  the  approp- 
riate counters  for  storing  the  index  data,  and  transfers 
control  to  NOINDX.  NOINDX  scales  the  X and  Y start  print 
coordinates  to  the  FR80  image  size  via  MAP,  sets  the  X and 

Y DAC's  using  the  III  routine  SETXYS,  and  outputs  the 
START  PRINT  character  via  CHROUT.  Control  is  then  returned 
to  GETCOM. 

When  the  DTE  word  is  TYPEWRITER,  the  typewriter  switch 
(TYPSW)  is  checked.  When  TYPSW  is  not  set,  the  system  halts 
(i.e.,  no  previous  START  PRINT  word  to  give  coordinates). 

When  TYPSW  is  set,  then  each  character  of  the  typewriter 
word  is  output  via  CHROUT,  CHROUT  converts  each  DTE  char- 
acter to  the  appropriate  FR80  character  code  and  size,  stores 
each  character  in  the  index  field  if  the  STOCSW  (save  index) 
switch  is  set,  and  outputs  the  character  using  the  III  rou- 
tine VCHAR,  When  the  last  character,  of  the  typewriter  word 
is  processed,  control  is  returned  to  GETCOM. 

B . Input/Output 

1.  Input . Data  input  via  9-track  magnetic  tape  consists 
of  DTE  36-  or  48-bit  command,  instruction,  and  data 
words,  and  COM  control  records.  All  input  data  tapes 
are  recorded  in  a variable  spanned  length  record  for- 
mat (blocked  or  unblocked).  Detailed  descriptions  of 
the  format (s)  and  data  content  of  the  magnetic  data 
tapes  are  found  in  SH-09607A. 
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2.  Output . Data  is  output  to  either  16  mm  or  105  mm 

film.  Each  frame  contains  one  DTE  image.  Data  frames 
on  16  mm  film  may  be  abutted  by  utilization  of  the 
STRIP  CHART  operator  command. 

G . Linkages 

1.  External 


Routine 

Program 

FC7CLR 

III166 

FRSPIC 

III166 

MNBRIT 

III166 

NEXPIC 

III166 

MTRINI 

III163 

KYBLIS 

III166 

GET 

111163 

SETXYS 

III162 

SETHD 

III162 

SETTL 

I I I 162 

DRWVEC 

III162 

PSTLL 

III166 

SETPLS 

III166 

VCHAR 

III147 

INXDO 

III166 

MTBYTE 

III163 

FICTAP 

III186 

ROTATE 

III166 

MDONEX 

III166 

FCFIN  . 

III166 

FLASH 

III187 

Internal 

Routines 

GETCOM. 

CHROUT 

CCNTRL 

SAVADD 

GETOP 

STOCH 

SEPREC 

RESTOR 

GETCR 

ENDLN 

PROC76 

RETRN 

TYPSW 

CONVRT 

SPACE 3 

RESET 

TYPLP 

NEXFRM 

TITREC 

NEWSEG 

TYPNL 

DTFLSH 

FRMREC 

NMGET 

TYPMA 

BITCNT 

ROTREC 

NMGET1 

2-8 


SISO-TR53 
Vol.  II 


TYPCR 

SETCR 

NOINDX 

STARTX 


GETSEG 

GETSG1. 

GETSG2 

GETBLK 


IGNORE' 

IGNOR1 

CUTMAK 

MVOVER 


EBGET 
MVCOM 
MAP 
■ SCAL 


.1.3.2  Subroutines 

A.  BITCNT . Entered  with  the  AC  containing  the  number  of  bits 
to  be  accessed.  Uses  MTBYTE  to  get  bits  requested,  return- 
ing to  the  calling  routine  with  the  bits  requested  in  the 
AC.  Calling  sequence: 

LAC  N (1<N<18) 

JMS  BITCNT 

B.  CCNTRL . Accesses  eight-bit  carriage  control  characters 

via  GET  and  checks  for  COM  control  indicator;,  if  there  is 
not  a COM  control  character,  exits  by  CCNTRL.  If  there  Is, 
checks  next  byte  for  legitimate  COM  control  function  and 
branches  to  proper  handler.  Calling  sequence:  JMS  CCNTRL 

C.  - CHROUT . Entered  with  the  AC  containing  a character  to  be 

output.  Converts  character  to  EBCDIC  via  CONVRT,  outputs 
character  via  VCHAR,  and  returns  control  ,to  calling  routine. 
Calling  sequence  where  N = eight-bit  control  character: 

LAC  N ' 

CHROUT 

D.  CONVRT-.  Entered  with  DTE  character  in  AC.  Character  is 
converted  to  EBCDIC  via  DTETAB  table.  Exit  is  to  calling 
routine  with  converted  character  in  AC.  Calling  sequence 
where-  N = DTE  character: 


LAC  N 

JMS  CONVRT 
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E.  CUTMAK.  Routine  utilized  for  16  mm  microfilm  processing 
only.  Called  once  per  frame  for  output  of  three  marks, 
four  vectors  in  width,  the  position  and  size  of  which 
are'  delineated  by  MRKTOP , MRKBOT , MRKLFT , SDELTA,  MDELTA, 

- MARKS,  and  STROKS.  Returns  control  to  call  routine.  Call- 
ing sequence:  JMS  CUTMAK 

F.  DTESZ . Loads  set  size  and  pulldown  as  input  from  the  TTY. 
Also  sets  scaling  parameters  for  frame.  -Exits  via  MD.ONEX. 
Called  via  MONTOR. 

G.  DTFLSH . Builds  and  outputs  DTE  1024  x 1024  forms  overlay 
scaled  to  FR80  frame  size  via  MAP.  Output  and  coordinate 
positioning  are  controlled  by  DRWVEC,  SETTL.,  and  SETHD  III 
routines.  Exits  to  calling  routine.  Calling  sequence: 
DTFLSH 

H-  EBGET Converts  EBCDIC  numeric  string,  whose  length  is 
specified  in  SETXYS,  to  decimal.  Numbers  are  accessed 
from  magnetic  tape  via  GET.  Converted  number  is  in  AC  on 
exit  .to  calling  routine.  Calling  sequence  where  N-  = length 
of  numeric  string: 


LAM  N 

DAC  SETXYS 
JMS  MVCOM 

I.  EJECT . Advances  to  next  frame  and  outputs  cutmark  if 
required;  resets  X and  Y page  positioning,  character  deltas 
(CHDELX,  CHDELY) , and  character  size  (CHRSIZ)  via  SETXYS 
and  SETPLS . Outputs  EBCDIC  data  via  NEXTCH  until  next 
carriage  control  character  is  accessed,  whereby  BITCNT 
transfers  control  to  the  proper  routine.  Calling  sequence: 
JMP  EJECT 

J.  ENDLN . Checks  command  word  for  JUMP.  If  there  is  a JUMP, 

"advances  to  next  frame  via  NEXFRM  and  gets  next  DTE  data 
word.  If  'there  is  not  a JUMP,  data  is  ignored  and  next 
DTE  data  word  is  accessed.  Control  is  transferred  to 
GETCOM.  Calling  sequence:  JMS  ENDLN 
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K.  FRMREC . For  105  mm  film  processing,  sets  DTFORM  switch 
for  overlay  processing,  accesses  and  sets  control  functions 

. for  indexing,-  and  transfers  control  to  IGN0R1.  Fo;r  16  mm, 
advances  film  via  NEXPIC,  outputs  cutmarks  if  strip  chart- 
ing is  inhibited,  and  transfers  control  to  IGN0R1.  Called 
in  CCNTRL  upon  decode  of  F type  COM  control  record.  Call- 
ing sequence:  JMP  FRMREC 

L.  GETBLK . Accesses  32  bits  of  data  from  magnetic  tape  via 

MTBYTE.  Used  to  read  record  block  and  mask  off  block 
discriptor  word  (BDW) . Exits  to  calling  routine.  Calling 
sequence:  JMS  GETBLK 

M.  GETCOM  . For  36-bit  DTE  words,  bit  bucket  four-bit  pad, 

calls  KYBLIS  for  operator  interrupt  processing,  transfers 
control  to  GETOP.  GETCOM  is  called  for  all  DTE  data' word 
decodes.  Calling  sequence:  JMP  GETCOM- 

N.  GETCR.  Determines  if  36-bit  DTE  word  is  a typewriter  or 

a START'  PRINT  word.  ’ Control  is  transferred  to  TYPSW  or 
SETCR,  respectively.  Calling  sequence:  JMP  GETCR 

O'.  GETOP . Gets  four-bit  op  code  and  determines  if  data  word 
is  a command  or  vector  word.  If  it  is  neither,  control  is 
transferred  to  GETCR.  If  it  is  a command,  control  is 
transferred  to.ENDLN.  Calling  sequence:  JMP  GETOP 

P.  GETSEG.  Gets  logical  record  segment  from  tape  input  area. 

Determines  segment  control  code,  segment  length,  and 
carriage  control  from  segment  descriptor  word  (SDW) . If 
the  segment  length  is  two  or  less,  control  is  returned  to 
GETSEG+1  for  the  next  logical  record  segment.  If  the  seg- 
ment control  code  is  0 or  1,  which  specifies  a COM  control 
record,  CCNTRL  is  called  for  processing  of  the  COM  control 
record.  Upon  return  from  CCNTRL,  control  is  transferred 
to  the  calling  routine.  Calling  sequence:  JMS  GETSEG 

Q.  IGNORE.  Remains  in  loop  ignoring  data  via  BITCNT  until 
next  COM  control  record  or  logical  segment  is  read,  with 
control  being  transferred  to  the  applicable  routine  by 

-BITCNT.' 
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R.  IGN0R1 . Sets  applicable  switches  to  remain  within  GETSEG 
routine  until  DTE  data  has  been  accessed. 

S.  MAP . Sets  XHD,  YHD,  XTL  and  YTL  DTE  vector  coordinates 

scaled  to  FR80  units.  Coordinates'  are  centered  in  16K  x 16K 
frame  with  XHD,  YHD,  XTL,  YTL  containing  DTE  vector  coordi- 
nates. Returns  to  calling  routine  with  XHD,  YHD,  XTL,  YTL 
containing  FR80  coordinates.  Calling  sequence:  MAP 

T.  MVCOM.  Transfers  COM  control  data,  as  specified  in  the 

S o-r  T record,  into  either  buffer  TITARE  for  105  mm  or 
MTTARE  for  16  mm.  Data  is  accessed  from  tape  buffer  one 
byte  per  access  via  GET  with  AC  containing  first  titling 
character.  Calling  sequence:  JMS  MVCOM 

U.  MVOVER.  Sets  X and  Y DAC's  plus  XHEAD's  and  YTAIL.’ s f.or 

cutmark  vectors.  VHEADX  = start  point  Xl9  VHEADY  = start 
point  Yi,  VTAILX  = end  point  X2,  and  VTAILY  = end  point 
Y2.  Calling  sequence:  JMS  MVOVER 

V.  NEWSEG.  Reads  in  new  logical  segment;  gets  bits,  requested 

from  old  and  new  segment  and  returns  to  calling  routine  with 
data  in  AC.  Calling  sequence:  JMP  NEWSEG 

W.  NEXFRM.  Outputs  forms  overlay,  if  requested.  If  105  mm, 

sets  titling  intensity,  advances  to  next  frame,  resets 
intensity,  and  exits  to  calling  routine.  If  16  mm,  advances 
to  next-  frame,  outputs  cutmarks  if  strip  charting  inhibited, 
and  exits  to  calling  routine.  Calling  sequence:  NEXFRM 

X.  NMGET.  Sets  counter  to  get  converted  four-digit  hexadecimal 
number  via  EBGET.  Returns  to  calling  routine  with  value 

in  AC.  Calling  sequence:  JMS  NMGET 

Y.  • NMGET 1 . Sets  counter  to  get  converted  two-digit  hexadecimal 

number  via  EBGET.  Returns  to  calling  routine  with  value  in 
AC.  Calling  sequence:  JMS  NMGET1 
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Z-.  NOINDX . Entered  with  XHD  and  YHD  containing  DTE  character 
.coordinates  and  CHTEM  containing  eight-bit  DTE  character. 
Scales  coordinates  to  FR80  units,  sets  X and  Y DAC's, -out- 
puts character,  and  transfers  control  to  GETCOM,  Calling 
sequence:  JMP  NOINDX 

AA.  P ROC 76 . Entered  with  AC  containing  an  EBCDIC  carriage 
control  other  than  SKIP  to  Channel  11.  Outputs  EBCDIC' 
data  via  NEXTCH  until  COM  control  indicator  is  accessed, 
whereby  control  is  transferred  to  BITCNT.  EBCDIC  carriage 
controls  are  interpreted  by  SPACE3  and  EJECT.  Calling 
sequence:  JMP  PR0C76 

BB.  RESET . Sets  switches  specifying  COM  control;  sets  return 
address  in  GETSEG  and  BITCNT  to  return  to  calling  routine. 
Calling  sequence:  JMS  RESET 

CC . RESTOR.  Restores  BITCNT  and  GETSEG  parameters  to  condition 
previous  to  COM  control  loop.  Calling  sequence:  RESTOR 

DD.  RETRN.  Saves  return  address  from  BITCNT  for  original  call. 
This  is  done  prior  to  COM  control  processing.  Calling 
sequence:  JMS  RETRN 

EE.  ROT  RE  C . Decodes  image  rotation  control  record  and  sets 
image  rotation  via  ROTATE.  If  16  mm,  advances  to  next 
frame  and  outputs  cutmark,  if  applicable.-  Control  is 
transferred  to  IGN0R1.  Calling  sequence:  JMP  ROTREC' 

FF.  SAVADD.  Saves  BITCNT  and  GETSEG  return  addresses  prior  to 
COM  control  loop.  Calling  sequence:  SAVADD 

GG.  SCAB . Entered  with  AC  containing  DTE  coordinate.  Exits 
to  calling  routine  with  AC  containing  coordinate  in  FR80 
units'.  Calling  sequence: 

LAC  N 1<N<1023 
SCAL 
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HH.  SEPREC.  Entered  with  AC  containing  first  character  of  S 

record.  Calls  MVCOM,  initializes  for  no  forms  or  indexing, 
and  if  105  mm,  calls  FICTAP  for  control  record  processing. 
Sets  CH11SW  and  SEGSW  for  control  record  skip  via  BITCNT 
and  if  1,6  mm,  sets  CCNTRL  routine  for  processing  of  76- 
record  EBCDIC  identification.  Exits  to  IGNORE.  Calling 
sequence:  JMP  SEPREC 

II.  SETCR.  Sets  TYPSW  for  typewriter  word  processing,  converts 
DTE  character  size  to  appropriate  FR80  size,  and  DTE 
character  deltas  to  FR80  units  (CHDELX,  CHDELT) . Sets 
deltas  based  on  rotation  via  ROTTST  and  SETPLS.  Accesses 
starting  line  coordinates  by  call  to  GET,  storing  X in  XHD 
and  Y in  YHD.  Checks  coordinates  against  those  specified 
by  index  control  record.  If  they  match,  control  is  trans- 
ferred to  STARTX.  If  not,  subroutine  exits  via  NOINDX. 
Calling  sequence:  JMP  SETCR 

JJ.  SPACE3 . Called  during  processing  of  76  record  EBCDIC 

identification;  executes  CRT  IOT  for  three  lines.  Control 
is  transferred  to  NEXTCH.  Calling  sequence:  JMP  SPACE3 

KK.  STARTX.  Initializes  STOCSW  for  access  of  index  data,  blank 
fills  MTTARE  buffer  prior  to  transfer  of  index  data,  sets 
line  position,  and  indexes  field  length.  Returns  control 
to  calling  routine.  CHRCNT  will  be  set  to  the  number  of 
index  characters  desired  prior  to  the  call.  Calling  sequence 
JMS  STARTX 

LL.  STOCH.  Entered  with  AC  containing  index  character  n.  Stores 
character  in  MTTARE  buffer  and  exits  to  calling  routine,  if 
index  character  count  is  less  than  zero.  If.  index  character 
count  is  exhausted,  resets  STOCSW 'for  no  index,  processes 
index  data  by  a call  to  INXDO,.  and  returns  to  calling  rou- 
tine with  character  n in  AC.  Calling  sequence:  JMS  STOCH 

MM.  TITREC . Moves  title  data  into  TITARE  (or  MTTARE  for  16  mm) 
via  MVCOM,  calls  FICTAP  for  title  processing,  resets  CCNTRL 
for  DTE  data  processing,  outputs  cutmark  (16  mm  only),  and 
transfers  control  to  IGNORE.  Calling  sequence:  JMP  TITREC 
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NN.  TYPLP . Processes  DTE  special  characters  NULL,  CR,'and  MR 
if  neither,  outputs  as  print  character  via  CHROUT  until 
CNTR  (character  counter  equal  -5  for  48  or  -4  for  36)  is 
exhausted.  Entered  either  thru  TYPSW.or  JMP  TYPLP.  Exits 
' to  GETCOM. 

2.1.3. 3 Constants  and  Variables 
A.  Internal 

1.  BITNSV.  Temporary  save  location  of  number  of  bits  ’ 
requested  by  GET  macro  in  SAVADD  and  RESTOR  routines. 

.2.  BITNUM.  Contains  number  of  bits  requested  by  GET  macro. 

3.  BITSVAD.  Temporary  save  location  of"  return  address 
from  GET  call. 

•4.  CHRCNT.  Word  containing  the  number  of  characters  p^^ 
index  entry  as  specified  in  F record. 

5.  CHTEM.  Cell  containing  DTE  character  accessed  from 
start  print  word. 

6.  CH11SW.  Switch  used  for  entry  and  exit  into  COM  con- 
' trol  processing.  Set  to  JMS  RESET  after  S COM  record 

and  NOP  upon  completion  of  second  COM  control  record 
processing. 

7.  . CNTR.  Counter  containing  number  of  characters  per  DTE 

typewriter  word. 

8.  DFRSZ . Constant  containing  frame  size  in  FR80  units, 
.either  13522  for  105  mm  or  9600  for  16  mm. 

9.  DTESI Z . Temporary  cell • containing  DTE  character  size 
(0-7)  accessed  from  start  print  word. 

.0.  DTETAB . Table  containing  DTE  character  codes,  two 
characters  per  word. 
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11 . DTFORM.  Switch  used  to  control  forms  overlay  pro- 
cessing : NOP  forces  output,  SKP  ignores. 

12.  DTXTAB . Table  containing  character  spacing  values  in 
DTE  units  for  eight-character  sizes. 

13.  DTYTAB.  Table  containing  line  feed  values  in  DTE  units 
for  eight-character  sizes. 

14.  GETS GAD.  Temporary  save  location  of  GETSEG  routine 
return  address. 

15.  INXSSW.  Switch  used  to  control  index  processing;  SKP 
delineates  indexing;  NOP  indicates  no  indexing. 

16.  MARKS . Counter  which  contains  repeat  count  (-3)  for 
output  of  four  vector  cutmarks . 

17.  MB I TNM . Variable  containing  number  of  bits  requested 
by  GET  macro  in  BITCNT  routine. 

18.  MB-ITSV.  Temporary  save  location  of  number  of  bits 
requested . Referenced  in  SAVADD  and  RESTOR. 

1-9.  MCHCNT . Variable  containing  number  of  characters  per 
index  entry  as  delineated  in  F control  record. 

20.  MDELTA.  Delineates  delta  X increment  between  four  vec- 
tor marks  which  constitute  cutmark. 

21.  MRKBOT.  Constant  delineating  end  point  (Y2)  °f  cutmark 
vectors. 

22 . MRKLFT . Starting  X coordinate  for  cutmarks. 

23*  MRKTOP . Constant  delineating  start  point  (Yq)  of  cut- 
mark  vectors. 

* 

24.  NEWSGB . Variable  containing  n bits  (14  n 4 18)  of  daita 
from  next  record  segment. 
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'25.  NEWSGC.  Variable  containing  number  of  bits  required 
from  next  record  segment  to  satisfy  GET  macro.' 

26.  .OLDSGB . Variable  containing  n bits  (14:n£:18)  of  data 
remaining  in  current  record  segment. 

27 . OLDSGC . Variable  containing  number  of  bits  remaining 
in  current  record  segment. 

28.  RETADD . Cell  containing  BITCNT  return  address  when 
processing  COM  control  records. 

29.  SAVCHT . Temporary  save  location  for  non-COM  control 
character  in  PROG76. 

30.  S DELTA.  ' Delineates  delta  X increment  between  cutmark 
vectors . 

31.  SEGCNT.  Counter  containing  number  of  bits  in  current 
record  segment. 

32.  SEGSW.  Switch  used  to  reset  BITCNT  return  address  upon 
completion  of  COM  control  processing. 

33.  STOCSW.  Switch  used  to  control  saving  of  index  charac- 
ters ; NOP  indicates  no  indexing;  JMS  STOCH  .indicates 

to  save  index  character. 

34*  STRIPF . Switch  used  to  determine  output  of  cutmarks . 
NOP  indicates  output  cutmarks;  SKY  in  the  strip  chart 
mode  indicates  no  cutmarks . 

35.  STROKS . Constant  delineating  number  of  vectors  per 
mark  for  cutmarks. 

36.  SZTAB . Table  containing  character  heights  in  DTE  units 
for  eight-character  sizes. 

37.  TITINT.  Constant  delineating  output  light  intensity 
for  titling. 
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38.  XHD . Contains  starting  X coordinate  of  uae  vector  as 
accessed  from  DTE  vector  word. 

•39,  XINDX.  Contains  X coordinate  position  of  first  DTE 
index  character.  Set  by  F COM  control  record. 

40.  XOFF.  Starting  X (or  left-side  margin])  of  DTE  image 
in  FR80  raster  units. 

41.  XOFFOV.  Starting  X (or  left  margin)  of  EBCDIC  identi- 
fication frame  in  FR80  raster  units. 

42 . XSIGN.  Sign  of  X vector  as  defined  by  36-bit  DTE 
vector  word. 

43.  XTL.  Contains  end  X coordinate  of  DTE  vector  as 
accessed  from  DTE  vector  word. 

44.  YHD.  Contains  starting  Y coordinate  of  DTE  vector  as 
accessed  from  DTE  vector  word. 

45.  YINDX.  Contains  Y coordinate  position  of  first  DTE 
index  character.  Set  by  F COM  control  record. 

'46,  YOFF.  Starting  Y or  top  margin  of  DTE  image  in  FR80 
raster  units. 

47.  YOFFOV.  Starting  Y or  top  margin  of  EBCDIC  identi- 
fication frame  in  FR80  raster  units.- 

48.  YSGN.  Sign  of  Y vector  as  defined  by  36-bit  DTE 
vector  word. 

49.  YTL.  Contains  end  Y coordinate  of  DTE  vector  as 
accessed  from  DTE  vector  word. 

B.  External 


1. 

CHDELX. 
delta  X. 

Word 

location 

reserved 

for 

FR80 

character 

2. 

' CHDELY. 
delta  Y. 

Word 

location 

reserved 

for 

FR80 

character 
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.3.  CHRSIZ . Word  location  reserved  for  FR80  character 
. - size . 

4.  - CURBUF . Cell  used  for  current  magnetic  tape  buffer 

address  (one  of  two  magnetic  tape  buffers). 

5.  EXPND.  Location  used  to  define  end  of  executable  code. 

6.  FCSUB . One-word  cell  used  either  to  decrease  or  in- 
crease margin  between  fiche. 

7.  FCTTSW.  Switch  used  to  control  title  extraction  from 
tape  or  teletype.- 

•8.  FICTB . Address  of  fiche  title  table  (i.e.,  titling 
buffer  area) . 

9.  FLSHND . Defines  start  of  executable  form  flash  code. 

10.  FRAMNM.  One-word  counter  containing  number  of  frames 
filmed. 

11.  IFLASW.  Switch  used  to  control  output  of  index  frame 
(SKP  = output;  NOP  = no  output). 

12.  IXXLEN.  Variable  delineating  number  of  characters  per 

index  line.  > 

13.  MAXTRW . Constant  used  for  multiple  fiche  title  rows 
(always  zero  for  DTE) . 

14.  MTTARE . Contains  teletype  buffer  address. 

15.  NEXBUF . Cell  used  for  next  magnetic  tape  buffer  address 
•(■one  of  two  magnetic  tape  buffers). 

16.  PBUFPT . Location  used  to  define  start  of  form  flash' 
communication  area. 

17.  PICNUM.  One-word  counter  containing  number  of  images 
produced. 
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18.  RECPIN . ' Word  location  reserved  for  FR80  light  intensity 
value . 

19.  SCSIZE.  Maximum  available  FR80  raster  units  (16384). 

20.  SVROT . One-word  save  location  containing  current 
rotation  delineator. 

21;  T I TARE.  Address  of  fiche  titling  buffer. 

22.  TPOINT.  Contains  address  of  next  available  word  in 
T I TARE. 

23.  VHEADX . Word  reserved  for  setting  of  starting  X vector 
coordinate . 

24.  VHEADY . Word  reserved  for  setting  of  starting  Y vector 
coordinate. 

VTAILX.  Word  reserved  for  setting  of  ending  X vector 
coordinate. 

26.  'VTAILY . Word  reserved  for  setting  of  ending  Y vector 
coordinate. 

2. 1.3. 4 Flow  Charts.  See  following  pages. 
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2.2.  COMA  GRAY  LEVEL,  LANDSCAPE,  AND  CLASSIFICATION  MAP  PROCESSOR 
FOR  105  mm  FICHE  (CLAGRA) 

2.2.1  Background 

A.  Author . W.  T.  Jackson,  Aeronutronic  Ford  Corporation 

B. .  Intent . CLAGRA  processes  9-track  magnetic  tape  formatted 

for  earth  resources  microfiche  imagery  generation  as 
delineated  in  PHO-TN598. 

1.  Gray-Level  (GRAY)  processes  9-track  magnetic  tapes 
formatted  for  variable  length  gray-level  imagery  with 
each  eight-bit  byte  representing  one  picture  element. 

2.  Landscape  (LAND)  processes  9-track  magnetic  tapes  con- 
taining 48-bit  DTE/LANDSCAPE  gray-level  and  data  words, 

3.  Classification  (CLASS)  processes  9-track  magnetic  tapes 
formatted  for  variable  length  character  map  images  witl 
each  eight-bit  byte  representing  one  character. 

C . Program  History 

1.  Production  Tape  Date:  15  May  1975 

2.  Author . W.  T.  Jackson 

3.  Authorization.  Task  Agreement  - P-2G03 

4 . Test  Case. . PHO-TN60S 

5.  Revisions . Reference  Appendix  B,  paragraph  B.2 

2.2.2  introduction 

2.212.1  Hardware  Requirements 
a FR80  with  12K  memory 
• 9-track  magnetic  tape  unit 
© 105  mm  camera 

© 16  mm  adapter  disk. 
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2. 2. 2. 2 Software  Requirements.  The  following  files,  found  in 

I.I.I.'s  SYM  Directory,  are  required. 


III109  III147 
III166  III163 
riI164  III186 
III164  FILM  1 1 118 5 


1 1 1 1 6 2 
III161 

III166  INVAR 
I I 1166  ADVAN 


2. 2. 2. 3 Assembly  Parameters.  The  assembly  parameters  in  III109 
shall  be  set  for  the  proper  machine  configuration.  Assembly  para- 
meters specific  to  the  GRAY,  LAND,  and  CLASS  Processors  are  as 
follows. 


A.  BIGBUF . If  0,  allows  maximum  amount  of  operator  functions 
with  minimum  buffer  space. 

B.  FONT . If  0,  assembles  standard  III  character  font. 

C.  EBCDIC . If  1,  assembles  EBCDIC  character  set. 

D.  TAPELB . If  1,  assembles  code  for  processing  of  IBM 
standard  tape  labels. 

E-  TITLE • If  1,  inserts  routines  for  fiche  title  processing. 

F • PTYPE . If  1,  defines  code  for  105  mm  microfiche  title 
buffering . 

0*  7TRACK.  If  0,  7-track  is  not  required;  therefore,  assembles 
9-track  magnetic  tape  handler. 

H.  TWOBUF . If  1,  utilizes  two  magnetic  tape  buffers,  CURBUF 
and  NEXBUF,  for  higher  throughput. 

I*  NASA.  If  1,. includes  NASA  specific  character  descriptors 
in  character  ^set. 

J.  LOCASE . If  1,  lower  case  character  set  is  required. 

K.  MANYUP . If  1,  defines  code  for  multiple  images  per  frame 
for  105  mm  microfiche. 
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L.  FASTTY . If  1,  assembles  SYM  code  for  teletype  interrupt 
handler . 

M.  MUMBLE . If  1,  defines  system  configuration  output  via 
teletype  during  assembly. 

N.  'NEXPAG  = NEXPIC . Equates.  NEXPAG  to  NEXPIC  macro  call. 

2. 2. 2. 4 Operator  Commands.  The  following  commands,  entered  by 
the  operator  via  teletype,  are  available  for  use  with  the  CLAGRA 
Program. 

TIME 

FRAME 

GO 

CONTINUE 
TITLE 
END  JOB 
MAKE  FILM 
CLEAR  . 

ADVANCE 

BACK 

USE 

REWIND 

SKIP 

TRY  AGAIN 
STANDARD  LABELS 
UNLABELED 

PITCH/MARGIN  = 69,  52 
SIZE  OF  TITLE  = 14500,  10500 
IMAGES  PER  FICHE  =6,7 

HITS- CHARS,  VEC,  PTS,  TITLE,  CMARK  = 1,1, 1,1,1 
FOCUS 

ROTATION  = 0 
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2.2.3  Analysis 

2 . 2 .-3 . 1 Major  Control  Section 

A.  Description . Upon  issuance  of  a GO  command  by  the  operator 
via  the  console  teletype,  the  III  routine  PSTART  transfers 
control -to  the  GRACLA  processing  routine  BEGIN.  BEGIN 
initializes  all  switches;  does  initial  camera  advancing 
and'  positioning  using  the  FC7CLR,  FRSPIC,  and  NEXPIC  sub- 
routines; initializes  the  magnetic  tape  handler  via  MTRINI ; 
and  transfers  control  to  BITCNT, 

B.ITCNT  accesses  data  from  magnetic  tape  buffers  via  MTBYTE. 
For  each  new  logical  record  (i.e.,  new  data  frame)  control 
is  transferred  to  CCNTRL  for  decoding  and  routing  of  COM 
control  functions  via  TITREC,  GRAYL,  CLASSM,  LANDS  and 
DESCTL.  Image  size  (character/line  and  lines/frame)  as 
delineated  in  COM  control  records  G,  K,  L,  and  D,  is  set 
via  HEXOCT,  and  control  is  transferred  to  SETPT. 

‘SETPT  sets  the  frame  position  on  film  for  GRAY,  CLASS,  and 
LAND,  both  data  and  overlay,  via  calls  to  SETGRA,  SETCLS, 
and  SETLND,  respectively.  When  a control  word  other  than 
GRAY,  CLASS,  or  LAND  has  been  accessed,  SETPT  transfers 
control  to  CTLERR. 


Upon  completion  of  frame  positioning,  control  is  trans- 
ferred to  GRADTA,  DESDTA,  CLSDTA,  or  LANDTA  for  GRAY, 
DESCRIPTIOR,  CLASS,  and  LAND  data  processing,  respectively. 
Control  remains  within  the  aforementioned  routines  until 
completion  of  image  generation  for  the  given  film  frame,  . 
at  which  time  control  is  transferred  to  OVLDTA.  OVLDTA 
processes  the  remaining  data  within  the  logical  tape  record 
as  DTE  overlay-  data.  Upon  completion  of  overlay  data  pro- 
cessing, control  is  returned  to  BITCNT  for  next  logical  • 
record. 

Upon  completion  of  each  microfiche  for  GRAY  and  LAND,  an 
eight-level  density  calibration  wedge  is  output  as  the 
last  frame. 


When  .an  EOF  is  accessed,  control  is  returned  to  the  oper- 
ator for  either  job  termination  or  continuation  from  a 
continuation  tape.' 
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B.  Input/Output 

Input.  Data  input  via  9-track  magnetic  tape  consists 
of  COM  control  words;  GRAY,  CLASS  and  LAND  data  words; 
and  DTE  overlay  data  words.  All  input  data  tapes  are 
recorded  in  variable  spanned  length  record  format 
(blocked  or  unblocked) . Detailed  descriptions  of  the 
format (s)/data  content  of  the  magnetic  data  tapes  are 
delineated  in  PHO-TN598. 

2*  Output.  Data  is  output  to  105  mm  microfiche.  Each 

microfiche  will  be  output  in  a 7-row  by  6-column  format. 
Row  one  shall  contain  titling,  with  each  remaining  row 
containing  six  unique  GRAY,  CLASS,  or  LAND  images. 

C . Linkages 

1.  External 


Routine 

Program 

FC7CLR 

III166 

FRSPIC 

III166 

NEXPrc 

III166 

MTRINI 

III163 

KYBLIS 

II 1166 

GETT 

III163 

SETXYS 

III162 

SETHD 

III162 

SETTL 

III162 

DRWVEC 

III162 

PSTLL 

II 1166 

SETPLS 

III166 

VCHAR 

II 1 14  7 

MTBYTE 

I I I 163 

FICTAP 

III186 

MONTOR 

III166 

FCFIN 

I I 1166 
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2-.  Internal  Routines 


GET8BT 

NEWSEG 

HUNDRD 

DTEVEC 

SETPT 

CCNTRL  ' 

TENS 

GT8MK4 

GRADTA 

SAVADD 

ONES 

CALXS 

CLSDTA 

CKKERR 

OVLDTA 

CALYS  ' 

LAND T A 

RESTOR  ' 

CHRBRN 

DTESPT 

CTLERR 

TITREC 

PNTOUT 

DTETYP 

GETCOM 

.GRAYL 

CHROUT 

LETCHR 

DESDTA 

CLASSM 

GETCHR 

•LTEVEC 

SETGRA 

LANDS 

CRTGET 

LCALXS 

SETCLS 

DESCTL 

CONVRT 

LCALYS 

BITCNT 

GRACTL 

NEWLOG 

LTESPT 

GETSEG 

MVCOM 

CKVEC 

LBARS 

GETBLK 

THOUSN 

CKSPT 

BARS 

2. 2. 3. 2 Subroutines 


A.  BARCH.  Routine  used  to  output  character  overlay  for  GRAY 
and  LAND  density  wedge.  Table  CHXY  contains  X coordinate, 

Y coordinate,  and  character  code  for  the  overlay  data. 

.B.  BARS . Called  once  per  fiche,  in  the  GRAY  mode,  for  output 
of  an  eight-level  density  calibration  wedge  plus  overlay. 
Wedge  dimensions  are  1000  scan  lines  by  1000  pixels,  with 
the  first.  500  scans  containing  shade's  0 thru  7 at  125 
pixels  per  shade,  and  the  last  500  scans  containing  shades 
7 thru  0.  Vector  and  character  overlay  are  output  via  a 
call  to  BARVC.  Exits  to  calling  routine  via  BARVC.-  Calling 
sequence:  , JMS  BARS 

C.  BARVC.  Routine  used  to  set  appropriate  counters  and  table 
addresses  for  output  of  vector  and  character  overlay  via 
calls. to  BARVE  and  BARCH,  respectively.  Exits  to  calling 
routine  via  BARS  or  LBARS  based  on  GRAYSW.  Calling  sequence 
JMP  BARVC 

D.  - BARVE . Routine  used  to  output  vector  overlay  for  GRAY  and 

LAND  density  wedge.  Table  VCXY  contains  XjYi  and  X2Y2 
vector  coordinates  for  the  overlay.  Vector  output  is  via 
DRWVEC.  Calling  sequence:  JMS  BARVE 


REPRODUCIBILITY  OF  THE 
ORIGINAL  PAGE  IS  POOR 
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E.  BITCNT.  Entered  with  the  AC  containing  the  number  of 
bits  to  be  accessed.  Uses  MTBYTE  to  get  bits  requested, 
returning  to  the  calling  routine  with  the  bits  requested 
in  the  AC.  Calling  sequence: 

LAC  N (1  4 N L 18) 

JMS  BITCNT 

F.  CALXS . Entered  with  AC  containing  X coordinate  in  DTE 

units.  Converts  DTE  to  FR80  units  (conversion  factor  in 
VDELX) , adds  frame  offset  (XOFFOV)  and  returns  to  calling 
routine  with  FR80  X coordinate  in  the  AC.  Calling  sequence 
with  AC  containing  DTE  X coordinates:  JMS  CALXS 

G.  CALYS . Accesses  10-bit  DTE  Y coordinate  via  BITCNT,  con- 

verts to  FR80  units  (conversion  factor  in  VDELY) , adds 
frame  offset  (YOFFOV)  and  returns  to  calling  routine  with 
FR80  Y coordinate  in  the  AC.  Calling  sequence:  JMS  CALYS 

H.  CCNTRL . Accesses  eight-bit  character  code  via  GET8BT  and 

checks  for  COM  control  indicator  (D9) . If  not  a COM  con- 
trol, exits  to  CKKERR.  When  COM  control,  checks  next  byte 
for  control  function  and  branch  to  proper  handler.  Calling 
sequence:  JMS  CCNTRL 

I.  CHROUT . Entered  with  the  AC  containing  a character  to  be 
output.  Converts  character  to  EBCDIC  via  CONVRT,  outputs 
character  via  VCHAR,  returns  control  to  calling  routine. 
Calling  sequence,  where  N = 8-bit  DTE  character: 

i 

LAC  N' 

CHROUT 

J. -  CKKERR.  When  in  GRAY  or  CLASS  mode,  exits  to  CTLERR. 

When  in  LAND  mode,  resets  LNPERF  and  CHPERL,  advances  to 
next  frame  via  NEXPIC,  resets  frame  position  via  SETPT, 
and  exits  to  LANDTA.  Calling  sequence:  JMP  CKKERR 
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K.  CLASSM.  Sets  processing  mode  switches  for  CLASS  MAP  data; 

sets  character  deltas  (CLDELY  = -62,  CLDELX  = 46);  and 
transfers  control  to  GRACTL.  Calling  sequence:  JMP  CLASSM 

L.  CLSDTA.  Entered  with  AC  containing  first  eight-bit  char- 

acter. When  in  overlay  mode,  transfers  control  to  OVLDTA. 
When  in  CLASS  mode,  sets  hardware  registers  via  SETPLS;  sets 
X and  Y start  coordinates  via  SETXYS;  and  outputs  characters 
via  calls  to  CHROUT  and  CETCHR.  At  end  of  line,  positions 
to  next  line  via  CLTGET.  At  end  of  frame,  sets  processing 
mode  to  overlay  and  transfers  control  to  GETCOM.  Calling 
sequence:  JMP  CLSDTA 

M.  CLTGET.  Executes  PSTLL  for  hardware  ready,  updates  DAC’s 
via  SETXYS  for  next  line,  checks  for  operator  interrupt  via 
KYBLIS,  transfers  control  to  CNEWLN  (entry  point  in  CLSDTA) 
for  next  line  of  character  output.  Calling  sequence: 

JMP  CLTGET 

N.  CETCHR.  Accesses  next  eight-bit  character  via  GET8BT  and 

transfers  control  to  CLRGEN  (entry  point  in  CLSDTA),  with 
character  for  output  in  the  AC.  Calling  sequence:  JMP 

CETCHR 

O.  CONVRT . Entered  with  DTE  character  in  AC.  Character  is 
converted  to  EBCDIC  via  DTETAB  table.  Exit  is  to  calling 
routine  with  converted  character  in  AC.  Calling  sequence 
where  N = DTE  character: 

LAC  N 

JMS  CONVRT 

P.  CTLERR.  Transfers  control  to  MONOUX  with  address  of 

control  error  message  in  the  AC.  Calling  sequence:  JMP 

CTLERR 

Q.  DESCTL.  Sets  processing  mode  switches  for  descriptor 
data,  sets  DTE  to  FR80  conversion  factors  (VDELX,  VDELY) , 
and  sets  PRSWT  equal  to  NOP  to  ignore  DTE  overlay  data 
until  access  of  a start  print  word.  Calling  sequence: 

JMP  DESCTL 
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R.  DESDTA.  Transfers  control  to  OVLDTA,  when  there  is  over- 

lay data.  Otherwise,  sets  CHDELX,  CHDELY  and  CHRSIZ  for 
description  data.  Transfers  control  to  CNITCH  for  CLASS, 
INITCH  for  GRAY,  or  LNITCH  for  LAND.  (Entry  points  are 
in  CLSDTA,  GRADTA,  and  LANDTA,  respectively.)  Calling 
sequence:  JMP  DESDTA 

S.  DTESPT.  Decodes  DTE  start  print  word  as  accessed  via 
BITCNT.  Converts  DTE  X and  Y coordinates  to  FR80  units  via 
CALXS  and  CALYS  calls,  respectively;  sets  PLS  registers 

via  SETPLS;  and  outputs  character  by  call  to  CHROUT,  Trans- 
fers control  to  GETCOM.  Calling  sequence:  JMP  DTESPT 

T.  DTETYP . Transfers  control  to  IGNDTE  when  PRSWT  signifies 
no  start  print  word  processing  for  this  frame.  Otherwise, 
processes  DTE  special  characters  NULL,  CR,  and  MR;  if 
there  are  none,  outputs  as  print  character  via  CHROUT 
until  CNTR  (character  counter  equal  to  S)  is  exhausted. 

Exits  to  GETCOM. 

U.  DTEVEC.  Decodes  and  converts  DTE  48-bit  vector  word  to 

FR80  X^Y^  and  X2Y2  vector  coordinates.  Outputs  vector  via 
call  to  III  routine  DRWVEC.  Exits  to  GETCOM.  Calling 
sequence:  JMP  DTEVEC 

V.  GETBLK.  Accesses  32  bits  of  data  from  magnetic  tape  via 

MTBYTE.  Used  to  read  record  block  and  mask  off  block 
descriptor  word  (BDW) . Exits  to  calling  routine.  Calling 
sequence:  JMS  GETBLK 

W.  GETSEG . Gets  logical  record  segment  from  tape  input  area. 

Determines  segment  control  code,  segment  length,  and 
carriage  control  from  segment  descriptor  word  (SDW) . If 
segment  length  is  two  or  less,  control  is  returned  to 
GETSEG+1  for  next  logical  record  segment.  If  segment  con- 
trol code  is  0 or  1,  which  specifies  COM  control  record, 
CCNTRL  is  called  for  processing  of  the  COM  control  record. 
Upon  return  from  CCNTRL,  control  is  transferred  to  calling 
routine.  Calling  sequence:  JMS  GETSEG 
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X.  GET8BT.  Used  to  access  eight -bit  data  byte  from  magnetic 

tape  buffer  via  BITCNT.  Returns  to  calling  routine  with 
AC  containing  right- j ustified  eight-bit  byte.  Calling 
sequence:  JMS  GET8BT 

Y.  GRACTL . Sets  processing  mode  switches  for  GRAY  data  pro- 
cessing.. Transfers  control  to  HEXOCT.  Calling  sequence: 
JMP  GRACTL 

Z.  GRADTA.  Entered  with  AC  containing  first  eight-bit  char- 
acter. When  in  overlay  mode,  transfers  control  to.  OVLDTA. 
When  in  GRAY,  sets  hardware  registers  via  SETPLS,  sets  X 
and  Y start  coordinates  via  SETXYS,  outputs  characters  via 
calls  to  CHROUT  and  CHRBRN,  and  outputs  pixels  via  PNTOUT. 
At  end  of  line,  positions  to  next  line  via  CRTGET.  At 

end  of  frame,  sets  processing  mode  to  overlay  and  transfers 
control  to  GETCOM.  Calling  sequence:  JMP  GRADTA 

AA.  GRAYL . Sets  processing  mode  switches  for  GRAY  data,  sets 

character  deltas  (CLDELX  = 10,  CLDELY‘=  -10),  and  transfers 
control  to  GRACTL.  Calling  sequence:  JMP  GRAYL 

BB.  GT8MK4 . Accesses ' eight-bit  data  byte  from  magnetic  tape 
buffer  via  BITCNT.  Masks  low-order  four  bits  of  AC- and 
•returns  to-  calling  routine.  Calling  sequence:  JMS  GT8MK4 

CC.  HEXOCT . Utilized  for  decode  and  conversion  of  lines  per 
frame  (LNPERF)  and  characters  per  line  (CHPERL)  from  G 
or  K control  record.  Defaults  to  439  by  612  respectively 
for  LAND  mode.  Advances  film  via  NEXPIC,  sets  start 
coordinates  by  call  to  SETPT,  and  transfers  control  to 
GETSG1.  If  LNPERF  equals  zero,  sets  CCTRSW  for  COM  control 
processing.  Calling  sequence:  JMP  HEXOCT 

DD.  HUNDRD . Converts  EBCDIC  hundreds  position  character  to 
decimal.  Returns  to  calling  routine  with  hundreds  value 
in  AC.-  Calling  sequence:  JMS  HUNDRD 

EE.  LANDS.  Sets  processing  mode  switches  for  LAND  data,  sets 
character  deltas  (CLDELX  = 10,  CLDELY  = 10),  and  transfers 
control  to  GRACTL.  Calling  sequence:  JMP  LANDS 
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FF.  LANDTA.  Entered  with  AC  containing  first  eight-bit  char- 
acter. When  in  overlay  mode,  transfers  control  to  OVLDTA. 
When  in  LAND,  sets  hardware  registers  via  SETPLS,  sets  X 
and  Y start  coordinates  via  SETXYS,  outputs  characters  via 
calls  to  CHROUT  and  LHRBRN,  and  outputs  pixels  via  PNTOUT. 
At  end  of  frame,  sets  processing  mode  to  overlay  and  trans 
fers  control  to  GETCOM.  Calling  sequence:  JMP  LANDTA 

GG.  LBARS . Called  once  per  fiche,  in  the  LAND  mode,  for  out- 
put of  an  eight-level  density  calibration  wedge  plus  over- 
lay. Wedge  dimensions  are  1000  scan  lines  by  1000  pixels, 
with  the  first  500  scans  containing  shades  0 through  7 at 
125  pixels  per  shade  and  the  last  500  scans  containing 
shades  7 through  0.  Vector  and  character  overlay  are  out- 
put via  a call  to  BARVC.  Exits  to  calling  routine  via 
BARVC . Calling  sequence:  JMS  LBARS 

HH.  LCALXS . Entered  with  AC  containing  X coordinate  in  RTCC 

1024  units.  Converts  to  DTE  612  units  and  computes  corres 
ponding  FR80  raster  address.  Returns  control  to  calling 
routine  with  X coordinate,  in  FR80  units,  in  the  AC. 
Calling  sequence  with  RTCC  X coordinates: 

JMS  LCALXS 
in  AC 

II.  LCALYS . Accesses  10-bit  Y coordinate  in  RTCC  units,  con- 
verts to  DTE  439  .units,  and  computes  corresponding  FR80 
raster  address.  Returns  control  to  calling  routine  with 
Y coordinate  in  FR80  units  in  the  AC.  Calling  sequence: 
JMS  LCALYS 

JJ.  LMYSET.  Updates  Y DAC  for  next  line  of  LAND  density  wedge 
and  resets  X and  Y DAC's  via  SETXYS.  Calling  sequence: 

JMS  LMYSET 

KK.  LTESPT . Decodes  LAND  DTE  start  printword  as  accessed  via 
BITCNT . Sets  CHRSIZ,  CHDELX  and  CHDELY  from  XSIZ  table 
using  DTE  character  size  code  as  index.  Converts  DTE 
X and  Y coordinates  to  FR80  units  via  LCALXS  and  LCALYS 
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calls,  respectively,  sets  PLS  registers  via  SETPLX,.  out- 
puts character  by  call  to  CHROUT,  sets  PRSWT  for  typewriter 
word  processing,  and  transfers  control  to  GETCOM.  . Calling 
sequence:  JMP  LTESPT 

LL.  LTEVEC.  Decodes  and  converts  DTE  48-bit  vector  word  to 

FR80  XqYq  and  X2Y2  vector  coordinates.  Outputs  vector  via 
DRWVEC  and  transfers  control  to  GETCOM.  Calling  sequence: 
JMP  LTEVEC 

MM.  MVCQM.  Transfers  COM  control  data,  'as  specified  in  the  T 
record,  into  buffer  TITARE  for  105  mm.  Data  is  accessed 
-from  tape  buffer  one  byte  per  access  via  GET8BT.  ' Calling 
sequence  with  AC  containing  first  titling  character: 

JMS  MVCOM 

NN.  MYSET.  Updates  Y DAC  for  next  line  of  GRAY  density  wedge 
and  resets  X and  Y DAC ' s via  SETXYS . Calling  sequence: 

JMS  MYSET 

00.  NEWSEG.  Reads  in  new  logical  segment;  gets  bits  requested 
from  old  and  new  segment  and  returns  to  calling  routine 
with  data  in  AC.  Calling  sequence:  JMP  NEWSEG  ' . * 

PP.  OVLDTA.  Checks  overlay  data  for  legitimate  DTE  data  words. 
Transfers  control  to  CKVEC  for  vector  words  to  CKSP.T  for 
start  print  words, ..to  DTETYP  for  typewriter  words,  and  to 
IGNDTE  to  "bit  bucket"  non-DTE  data  words.  Calling  sequence 
.with  AC  containing  DTE  data  word  bits  1-18:  JMP  OVLDTA 

QQ.  PNTOUT.  Utilized  for  output  of  GRAY  and  LAND  pixel  data. 
Entered  with  AC  containing  left- justified  pixel  intensity. 
Calling  sequence,  where  n = three-bit  intensity: 

LAC  n 

JMS  PNTOUT 

RR.  RESTOR.  Restores  BITCNT  and  GETSEG  parameters  to  condition 
, previous  to  COM  control  loop.  Calling  sequence:  RESTOR 


reproducibility  OP  THE 
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SS.  SAVADD . Saves  BITCNT  and  GETSEG  return  addresses  'prior  to 
COM  control  loop.  Calling  sequence:  SAVADD 

TT.  SETPT.  Controls  setting  of  overlay  and  data  frame  start 
coordinates  for  GRAY,  CLASS,  and  LAND.  Calling  sequence: 

• JMS  SETPT 

UU.  TENS . Converts  EBCDIC  tens  position  character  to  decimal. 

' Returns  to  calling  routine  with  tens  value  in  the  AC. 
Calling  sequence:  JMS  TENS 

W.  THOUSN.  Converts  EBCDIC  thousands  position  character  to 
decimal.  Returns  to  calling  routine  with  thousands  value 
in  the  AC.  Calling  sequence:  JMS  THOUSN 

WW.  TITREC . Moves  title  data  into  TITARE  via  MVCOM,  calls 

FICTAP  for  title  processing,  sets  TITSW  for  no  film  advance 
and  transfers  control  to  GETSG1 . Calling  sequence:  JMP 

TITREC 

2 . 2 , 3. -3  Constants  and  Variables 
A.  Internal 

1.  BITNSW.  Temporary  save  location  of  number  of  bits 
requested  by  GET  macro,  in  SAVADD  and  RESTOR  routines. 

2.  BITNUM.  Contains  number  of  bits  requested  by  GET  macro 

3.  BITSVAD . Temporary  save  location  of  return  address 
from  GET  call. 

4'.  CCTRSW . Switch  used  to  initiate  COM  control  record 
' processing. 

5:  CHPERL.  Counter  for  character-per- line  variable. 

6.  CLASSW . Switch  utilized  in  routing  flow  of  program 
for  classification  map  processing. 

7.  CLDELX.  Character  delta  X for  CLASS  data. 
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8.  CLDELY . Character  delta  Y for  CLASS  data. 

9.  CNTR.  Counter  containing  number  of  characters  per 
DTE  typewriter  word. 

10.  DESCSW.  Switch  used  for  designating  descriptor  data 
processing. 

11.  PSDBLX.  Character  delta  X for  descriptor  data. 

12.  DSDELY . Character  delta  Y for  descriptor  data. 

13.  DTETAB.  Table  containing  DTE  character  codes,  two 
characters  per  word. 

14.  GETSGAD.  Temporary  save  location  of  GETSEG  routine 
return  address. 

15.  GRAYSW.  Switch  used  for  delineating  GRAY  image  pro- 
cessing. 

16.  LANDSW.  Switch  used  for  delineating  LANDSCAPE  image 
processing. 

17 . LNPERF . Counter  for  lines  per  frame  variable. 

18.  MB I TNM . Variable  containing  number  'of  bits  requested 
by  GET  macro  in  BITCNT  routine. 

19.  MBITSV.  .Temporary  save  location  of  number  of  bits 
requested.  Referenced  in  SAVADD  and  RESTOR, 

20.  NEWSGB.  Variable  containing  n bits  (14n4  18}  of  data 
from  next  record  segment. 

21.  NEWSGC . Variable  containing  number  of  bits  required 
from  next  record  segment  to  satisfy  GET  macro. 

22.  OLDSGB . Variable  containing  n bits  (14  n 4 18)  of  data 
remaining  in  current  record  segment. 
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23 . OLDSGC . Variable  containing  number  of  bits  remaining 
in  current  record  segment. 

.24.  OVERSW.  Switch  used  to  initiate  and/or  inhibit  over- 
lay data  processing. 

25.  PRSWT.  Switch  used  to  designate  DTE  start  print  word 
has  been  processed  for  current  frame,  thereby  allowing 
processing  of  typewriter  words. 

26.  SEGCNT.  Counter  containing  number  of  bits  in  current 
record  segment. 

27 . SEGSW.  Switch  used  to  reset  BITCNT  return  address 
upon  completion  of  GOM  control  processing. 

28. '  XHD . Contains  starting  X coordinate  of  DTE  vector  as 

accessed  from  DTE  Vector  word. 

29.  XOFFDT.  Variable  used  for  designation  of  starting  X 
or  left  margin  of  GRAY,  CLASS,  and/or  LAND  image  area 
in  FR80  raster  units. 

30.  XOFFOV.  Variable  used  for  designation  of  starting  X 
or  left  margin  of  GRAY,  CLASS,  and/or  LAND  overlay 
area  in  FR80  raster  units. 

31.  XTL . Contains  end  X coordinate  of  DTE  vector  as 
accessed  from  DTE  Vector  word. 

32-.  YHD.  Vector  Y^  coordinate. 

33.  YOFFDT . Variable  used  for  designation  of  starting  Y 
or  top  margin  of  GRAY,  CLASS.,  and/or  LAND  image  area 
in  FR80  raster  units. 

34.  YOFFOV . Variable  used  for  designation  of  starting  Y 
or  top  margin  of  GRAY,  CLASS,  and/or  LAND  overlay  area 
in  FR80  raster  units. 

35.  YTL . Vector  Y£  coordinate. 
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B.  External 

1.  CHDELX.  Word  location  reserved  for  FR80  character 
delta  X. 

•2.  CHDELY.  Word  location  reserved  for  FR80  character 
delta  Y. 

3-.  CHRSIZ . Word  location  reserved  for  FR80  character- 
size. 

4.  CURBUF . Cell  used  for  current  magnetic  tape  buffer 

' address  (one  of  two  magnetic  tape  buffers). 

5.  FCXCNT.  Constant  delineating  number  of  columns  per 
fiche. 

• 6.  FCYCNT.  Constant  delineating  number  of  rows  per  fiche 

7.  . FICTB.  Address  of  fiche  title  buffer  area,  as  decodec 

by  1 1 1 1 8 6 . 

8.  NEXBUF . Cell  used  for  next  magnetic  tape  buffer 
address  (one  of  two  magnetic  tape  buffers) . 

9.  OPRCON.  Contains  NOP  op  code. 

10.  PLSON.  Switch  used  to  control  make  film  option., 

11 . RECSPT.  Cell  containing  FR80  spot  size  being  used  in 
film  generation. 

12.  SKPCON.  Contains  SKP  op  code. 

13.  T I TARE.  Interim  fiche  title  record  buffer. 

14.  TPOINT . Contains  address  of  next  available  word  in  FICTB . 

2. 2. 3. 4 Flow  Charts.  See  following  pages. 
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2.3  COMA  VARIAN  73  PRINT  PROCESSOR  FOR  16  mm  FILM  (VAR16) 

2.3.1  Background 

A.  Author.  B.  Miller,  Aeronutronic  Ford  Corporation. 

B.  Intent . The  requirements  for  this  program  are  specified 
in  SH-257S2 . 

C . Program  History 

1.  Production  Tape  Date.  15  November  1974 

2.  Author . B.  Miller 

3.  Authorization.  Clarification  form  A15  and  SH-25752 

4.  Test  Case.  TPS  (JSC  Form  1225)  No.  A4 . 

5.  Reference . Appendix  B,  paragraph  B.3 

2.3.2  Introduction 

2. 3. 2.1,  Hardware  Requirements 

• FR80  with  12K  memory 

• 7-  and  9-track  tape  units 

• 16, mm  camera 

2. 3. 2. 2 Software  Requirements 


VAR16 

III161 

III164 

II 1109 

III161  GO 

III164  FILM 

III166 

III147 

III185 

III166  INVAR 

III162 

1 1 1 1 8 7 

III166  ADVAN 

III162  MACRO 

NULL 

III166  TABLE 

III163 

FORM1  thru  F0RM4 

ORIGINAL  PAGE  Tfi  p 
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2. 3. 2. 3 Assembly  Parameters 

A.  ALLOW.  Allows  code  for  forms  loading  and  flashing  to  be 
assembled. 

B.  ASCII.  Causes  the  7-bit  ASCII  table  to  be  assembled  as 
VCHTAB. 

C.  BATCH.  Allows  code  for  batch  processing  to  be  assembled. 

D.  BIGBUF.  If  0,  allows  the  MONITOR  to  be  assembled  with  a 
maximum  number  of  features. 

E.  CAMNUM.  If  2,  camera  parameters  for  the  16  mm  unsprockete 
camera  are  assembled. 

F.  FONT.  If  0,  allows  assembly  of  the  character  font  FILM. 

G.  FTYPE.  If  16,  indicates  16  mm  film. 

H.  MTMANY ♦ If  0,  code  for  using  only  one  drive  will  be 
assembled  in  the  tape  routines. 

I.  MTPTR.  If  10,  tape  read  routines  will  use  auto-index 
register  10  as  MTPTR. 

J.  MTSIZE.  Size  of  the  teletype  buffer. 

K.  MUMBLE . If  '1,  allows  assembler  to  output  program  con- 
figuration during  assembly. 

L.  NUMCAM.  If  6,  camera  used  may  be  changed  at  run  time. 

M.  PTYPE . If  3,  indicates  forms  are  assembled  for  EBC. 

N.  TWOBUF.  Allows  code  for  double-buffered  tape  reads  to 
be  assembled. 

O.  7TRACK.  If  1,  allows  code  for  7-track  read  to  be  assembled. 
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P.  9TRACK.  If  1,  allows  code  for  9-track  read  to  be  assembled. 

2. 3. 2. 4 Operator  Commands 
* 

*TIME=15 : 48 ' 3 . 8M 
*FRAME=0 
^CURRENT  PAGE=0 
*G0 

*CONTINUE 
*MAKE  F I LM= 1 
*CLEAR 
*ADVANCE 

*TAPE  TYPE  - 2,5,8  OR  9=9 

*BACK 

*PARITY=1 

*USE=1 

* REWIND 

*SKIP 

*TRY  AGAIN=10 

*FORM=  NUL16  F0RM1  FORM 2 FORM3  FORM 4 

* OVERALL  FORM=NO 

*ERROR  FORM=NO 

*HITS - CHARS ,VEC , PTS=1 ,1,1 

*-FOCUS 

*CAMERA=2 

*PULLDOWN=  5 

*L0AD=VAR16 

*ROTATION=0 

* CARR I AGE  CONTROLS=  2 

l=NONE, 2=V0RTEX, 3=TERMINAL 

*LINES  PER  PAGE=60 
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2.3.3  Analysis 

2. 3. 3.1  Major  Control  Section 

A.  Description.  Prior  to  beginning  processing  of  a tape,  the 
operator  has  the  capability  to  enter  the  type  of  carriage 
controls  and  the, number  of  lines  per  page  via  MONITOR. 

The  default  values  are  VORTEX  carriage  controls  and  60 
lines  per  page. 

After  MONITOR  receives  the  GO  command,  the  program  sets 
the  location  and  length  of  the  buffers  (NEXBUF  and  CURBUF) 
to  be  used  for  the  doubled-buf f ered  tape  read.  MTRINI  is 
then  called  to  initialize  all  pointers  for  the  double- 
buffered  read  and  to  read  the  first  two  records  into  the 
corresponding  buffers.  CTRLCK  will  continue  reading  the 
tape  and  processing  control  records  until  the  first  data 
record  is  encountered. 

If  no  job  separator  record  was  found  (S.FLAG  = NOP),  JOBTLE 
requests  tape  identification  information  (five  characters) 
from  the  operator.  Then  JOBID  outputs  either  the  inform- 
ation in  the  job  separator  or  the  information  from  the 
operator  in  eyeball-sized  letters.  Prior  to  beginning  out- 
putting  .data,  HEADER  sets  the  PLS  hardware  for  printing 
and  TOPPAG  sets  the  coordinates  for  the  beginning  of  a 
page.  VCHTAB,  the  table  of  8-  and  7-bit  ASCII  character 
code  pointers,  is  loaded  as  the  base  address.  Bit  0 is 
set  when  the  base  address  is  loaded  so  that  the  character 
generator  will  be  in  the  eight-bit/byte  mode. 

Then  the  program  enters  the  main  print  loop.  Here,  pro- 
cessing branches  to  one  of  three  different  sequences 
depending  on  whether  the  carriage  control  is  NONE,  VORTEX, 
or  TERMINAL. 

For  processing  with  NONE  carriage  controls,  the  routine 
CTRLCK  reads  the  next  record  and  checks  to  see  if  it  is  a 
control  record.  If  so,  it  is  appropriately  processed,  and 
the  next  record  is  read  and  checked,  and  this  sequence 
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continues  until  the  print  data  is  accessed.  NEXTLN  is  then 
called  to  do  a carriage  return  and  line  feed  (or  new  page 
when  the  current  page  is  full).  The  number  of  bytes  in 
the  record  (MTCNT  times  2)  is  loaded  as  the  character  count, 
and  MTPTR,  which  contains  the  address  of  the  current  tape 
buffer,  is  loaded  as  the  starting  address.  Then  the  char- 
acter generator  is  started.  After  the  line  is  plotted,  the 
program  re.turns  to  the  beginning  of  the  print  loop  where 
CTRLCK  is  called  to  read  and  check  the  next  record. 

When  processing  with  VORTEX  carriage  controls,  the.  "routine 
CTRLCK  performs,  the  same  function  as  above  until  a print 
record  is  accessed.  GTCTRL  then  checks  the  first  -byte  of 
this  record  and  executes  the  carriage  control.  MTCNT  times 
2 plus  1 (to  compensate  for  the  carriage  control  byte) -is 
loaded  as  the  count  for  the  character  generator.  The 
starting  address  has  bit  0 set  so  that  the  character  gener- 
ator will  start  with  the  right-most  byte  of  the  first  word. 
The  character  generator  is  then  started.  After  the  line 
is  plotted,  the  program  returns  to  the  beginning  of  the 
print  loop  where  CTRLCK  is  called. 

Processing  with  TERMINAL  carriage  controls  requires  that 
each  byte  be  checked,  since  a carriage  control  may  be  any 
byte(s)  in  the  record.  CTRLCK  performs  the  same  functions 
,as  above  until  a print  record  is  accessed.  SAVCNT  (MTCNT 
times  2)  is  loaded  and  the  character  count  and  the  contents 
of  .MTPTR  is  loaded  as  the  starting  address . The  program 
then  branches  to  GTINIT  where  MTCNT  and  MTPTR  are  initial- 
ized for  GTBYTE.  At  GTNGO,  GTBYTE  is  called  to  retrieve  a 
byte  from  the  current  tape  buffer.  If  the  byte  is  not  a 
carriage  control,  it  is  plotted  on  film.  Then  the  2' s 
complement  of  the  characters/record  count  (SAVCNT)  is 
incremented'.  If  the  count  is  not  exhausted,  the  program 
returns  to  GTNGO  to  get  and  process  the  next  byte.  When 
SAVCNT  is  exhausted,  MTCNT  is  changed  to  a LAM  so  that  the 
next  record  will  be  read.'  Then  the  program  returns  to  the 
beginning  of  the  print  loop. 

Terminal  carriage  control  bytes  are  214  (or  14),  212  (or 
12),  and  21S  (or  15).  If  the  byte  retrieved  at  GTNGO  is 
a 215  (or  15)  the  program  branches  to ' SAMLIN.  A 214  (or 
14)  results  in  jumping  to  NXTPG  and  a 212  (or  12)  causes 
the  program  to  go  to  NXTLN. 
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At  SAMLIN,  THISLN  is  called  to  set  up  for  the  overprint. 

The  program  then  returns  to  the  instruction  where  SAVCNT 
is  incremented.  At  NXTPG,  NXPAGE  is  called.  Then  the 
program  returns  to  the  instruction  where  SAVCNT  is  incre- 
mented. At  NXTLN,  the  routine  NEXTLN  executes  the  carriage 
return/line  feed  [or  goes  to  a new  page  when  necessary) . 

The  program  then  returns  to  where  SAVCNT  is  incremented. 

When  an  end-of-file  is  encountered,  CUTMAK  is  called  to 
output  cutmarks  on  the  current  frame  and  NEXPAG  flashes 
the  forms  (if  any)  on  this  final  frame.  Then  JBSPCE 
spaces  down  10  frames  in  order  to  separate  the  jobs  ,on 
the  tape.  If  this  file  is  the  last  one  in  this  batch  to 
be  processed,  S.FLAG  is  initialized  to  a NOP.  If  no  job 
separator  was  encountered,  the  file  number  in  the  JOBNAM 
buffer  is  updated.  The  file  number  (FILNUM)  is  incremented 
and  the  record  counter  (RECNUM)  and  form  number  (FRMNUM)  are 
initialized  to  zero.  Then  the  next  file  is  processed. 

Upon  finding  a second  end-of-file,  S.FLAG  and  JOBTLE  are 
reinitialized  for  processing  a ‘different  tape. 


B . Input/Output 

1.  Input . • Input  is  a 7-  or  9-track  Varian  73  print  tape. 

2.  Output . Output  is  to  16  mm  film. 

C.  Linkages 

1.  External  Routines 


CUTMAK 

. KYBLIS 

MTLAC 

ROTTST 

FLASH 

MCRLF 

MTRINI 

SETPLS 

• FRSPIC 

MDOUT 

NEXPIC 

' GETNUM 

MMESSG 

■ PSTLL 

Internal  Routines 

BMSTLL  DFCTRL 

GTCTRL 

LDINFO  NEXTLN 

PPAGE 

CRGCTL  FRF LAS 

HEADER 

LINES  NXPAG 

THISLN 

CTRLCK  GTBYTE 

JOBTLE 

NEXPAG  PFLASH 

TOPPAG 

.3.3.2  Subroutines 

A.  JOBTLE . Called  if  no  job  separator  record  is  encountered 
before  the  print  data  is  accessed.  The  message  ENTER  TAPE 
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NUMBER:  is  output  at  the  teletype  via  MMESSG.  Then  the 

input  characters  [five  entries)  are  read  and  printed  at 
the  teletype.  If  a RUBOUT  (ASCII  377)  is  encountered,  the 
routine  branches  back  to  its  beginning;  otherwise,  the 
entries  are  stored  in  the  buffer  JOBNAM  as  the  instruction 
"LAC  VCHTAB  + (octal  value  of  entry)."  The  sixth  entry  of 
JOBNAM  is  the  current  file  number  in  ASCII  configuration. 

B. .  GTBYTE.  Unpacks  the  16  least  significant  bits  of  a word 

into  two  eight-bit  bytes.  The  left-most  byte  is  returned 
in 'the  accumulator  on  the  first  call  and  the  right-most 
byte  is  returned  on  the  second  call,  etc.  MTPTR.  points 
to  the  word  to  be  unpacked, 

C.  HEADER.  Loads  the  appropriate  X delta,  Y delta,  spot  size, 
character  size,  and  intensity  registers,  and  then  sets  the 
optical  hardware  via  SETPLS. 

D.  NEXPAG . Finishes  the  current  page  by  flashing  the  forms 
(if  any)  via  PPAGE  and  FRFLAS,  advancing  to  the  next  frame 
by  calling  NEXPIC,  and  initializing  for  the  next  page  with 
routine  TOPPAG. 

E.  TOPPAG.  Resets  the  line  count  (LNCNT)  and  resets  the  X 
and  Y DAC’s  to  the  beginning  position  for  a page. 

F.  FRFLAS . Flashes  the  overall  form  if  one  has  been  loaded. 

G.  PPAGE.  Flashes  the  error  form  when  the  error  flag  (ERFLAG) 
has  been  set  if  one  has  been  loaded.  Other  forms  (if 
loaded)  will  be  flashed  if  FLASSW  is  set  to  a NOP. 

H.  THISLN . Is  called  when  the  carriage  control  is  to  over- 
print the  next  line.  The  X DAC  is  repositioned  to  the 
beginning  of  the  current  line,  and  BMSTLL  allows  the  DAC's 
to  settle  before  returning  to  the  main  loop. 

I.  NEXTLN.  Called  when  the  carriage  control  is  a single 
space.  The  page  line  number  (LNCNT)  is  incremented  and 
checked  to  see  if  it  is  zero.  If  so,  the  page  is  full  and 
the  routine  branches  to  NUPAGE  where  NXPAGE  is  called.  If 
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LNCNT  is  not  zero,  CRT  is  executed  and  BMSTLL  is  called  to 
allow  the  DAC 1 s time  to  settle  before  processing  the  next 
line . 

J.  NXPAGE.  Waits  for  all  plotting  to  finish  (PSTLL)  and  calls 
CUTMAK  to  output  cutmarks  on  this  frame.  Then  NEXPAG  is 
called  to  flash  forms  on  this  frame  and  set  up  for  the  next 
one.  KYBLTS  then  checks  for  teletype  interrupts. 

K.  GTCTRL . Decodes  the  vortex  carriage  control  bytes.  The 
word  from  the  tape  buffer  with  the  carriage  control  in  the 
left-most  byte  should  be  in  the  accumulator  prior  to  enter- 
ing GTCTRL.  The  contents  of  the  accumulator  are  shifted 
right  eight  bits  and  the  six  least  significant  bits  are 
masked  off  and  retained.  A result  of  61  causes  the  pro- 
gram to  branch  to  NXPG,  where  the  subroutine  NXPAGE  is 
called.  If  the  result  is  53,  the  program  branches  to 
SAMLIN  where  THISLN  is  called.  If  the  carriage  control  is 
a 60,  NEXTLN  is  called  twice.  Any  other  code  results  in 
NEXTLN  being  called. 

I 

L.  BMSTLL . Allows  a delay  of  120  cycles. 

M.  CUTMAK . Draws  three  groups  of  five  vectors  in  the  upper 
left  corner  of  the  16  mm  frame. 

N.  JBSPCE.  Spaces  down  10  frames  when  an  end-of-file  is 
encountered. 

O.  CTRLCK.  Calls  MTLAC  to  read  the  next  record  and  retrieve 
the  first  word  from  the  current  tape  buffer.  Then  the  2*s 
complement  characters/line  count  (SAVGNT)  is  computed. 

The  first  byte  of  this  record  is  then  checked  for  being  a 
245,  indicating  a fiche  control  record.  If  it  isn’t,  the 
program  returns  to  the  print  loop  where  the  record  is  out- 
put. Otherwise,  the  second  byte  is  then  checked.  An  S 
record  is  processed  at  SREC  where  bytes  15-20  are  stored 
in  J0BNAM  as  the  tape  identification.  An  F record  is 
decoded  at  FREC  to  get  the  number  for  FRMNUM.  T,  C or  B 
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records  are  skipped.  (If  a control  record  is  none  of  the 
abo.ve,  the  program  assumes  that  it  is  actually  a print 
record  and  then  returns  to  the  print  loop.)  The  program 
then  goes  back  to  the  beginning  of  CTRLCK,  where  the  next 
record  is  read. 

P.  JOBID.  Outputs  the  six  entries  in  JOBNAM  in  eyeball-sized 
■characters,  using  DRWCHR.  There  are  three  characters  on 
each  of  two  frames- with  a cutmark  on  each  one. 

2. 3.3. 3 Constants  and  Variables 
A.  Internal 

1.  SAVCNT.  Contains  the  2’s  complement  number  of  charac- 
ters  to  be  output  in  the  current  line.  This  number  is 
computed  by  doubling  the  number  of  words  (MTCNT) 

in  the  record  just  read.  If  processing  with  VORTEX 
controls,  the  carriage  control  byte  is  compensated  for 
by  adding  one. 

2.  NEXBUF.  Contains  the  address  of  the  buffer  to  -be  used 
during  the  next  tape  read. 

3.  TMPCT.  A multi-purpose  variable. 

4.  CURBUF.  Contains  the  address  of  the  current  tape 
buffer. 

5..  ' SV . Contains  the  first  carriage  control  byte  of  a job 
(when  processing  with  VORTEX  controls), 

6.  LNCNT.  Currently  contains  the  2’s  complement  of  the 
line’s  per  page  minus  the  current  line  number. 

7.  TEMP.  A multipurpose  location. 

8.  VCHYI . Contains  the  beginning  Y coordinate  for  a page. 

9.  GTSAVE . Contains  the  word  from  the  tape  buffer  cur- 
rently being  unpacked  by  G-TBYTE. 
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10.  TNMBR.  Counter  used  for  reading  teletype  entries  in 
JOBTLE. 

11.  NT REE.  Contains  the  current  entry  from  the  teletype. 

12.  JO BN AM.  Name  of  the  buffer  which  contains  the  inform- 
ation input  by  operator  as  the  first  five  entries  and 
the  file  number  in  ASCII  as  the  sixth. 

13.  TNMMSG . Name  of  the  buffer  containing  the  message 
ENTER  TAPE  NUMBER: . 

14.  ILLEGL.  Name  of  the  buffer  containing  the  message 
INVALID  ENTRY. 

15 . CCTYPE.  Name  of  the  buffer  containing  the  message 
l=NONE , 2=VORTEX, 3=TERMINAL , displayed  on  the  monitor 
to  explain  the  carriage  control  option. 

16.  XORWRD • If  400,000,  indicates  VORTEX  carriage  controls 
otherwise,  it  is  zero.  Used  to  initialize  the  starting 
address  for  the  character  generator, 

17.  CTRL.  Contains  carriage  control  indicator  (1  for  NONE, 
2 for  VORTEX,  or  3 for  TERMINAL).  This  is  operator- 
accessible  via  MONITOR, 

18.  LNS . Contains  the  maximum  number  of  lines  per  page. 

The  default  value  is  60.  However,  LNS  is  operator- 
accessible  via  the  MONITOR. 

19.  ERF LAG . Indicates  an  error  is  set  to  a LAM.  Allows 
error  form  (if  one  has  been  loaded)  to  be  flashed  on 
the  page. 

20.  ERFMFL . Contains  the  address  of  the  error  form  if  this 
form  has  been  loaded. 

21.  FRAMFL.  Contains  the  address  of  the  overall  form  if 
this  form  has  been  loaded. 
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22 . FRMNUM.  Contains  the  number  of  the  form  to  be  flashed 
(0,  1,  2,  3,  or  4) . 

23.  FRMTAB . A table  of  the  addresses  of  the  forms  which 
have  been  loaded. 

24.  LENGTH.  The  2!s  complement  of  the  length  of  a. single 
tape  buffer. 

25.  BUFFER.  Area  reserved  for  the  tape  buffers. 

26.  XFOFF . Contains  the  X offset  for  using  forms. 

27.  YFOFF . Y offset  for  using  forms. 

28.  SPCNUM.  Contains  the  number  of  scope  points  to  be 
used  for  a character  space. 

29-  LNFDNM.  Contains  the  number  of  scope  points  to  move 
during  a line  feed. 

30.  FORMSW.  Indicates  that  a form  has  been  loaded  if  it 
contains  a SKP. 

31.  FLASSW.  Allows  the  subroutine  PFLASH  to  be  called 
when  set  to  a NOP.  Should  be  set  to  a SKP  when  forms 
are  not  to  be  flashed. 

32.  FRAME.  Frame  counter  for  the  JOBID  routine. 

33 . LETTER.  Letters  per  frame  counter  in  the  JOBID  routine. 

34.  VCHARD . Contains  the  instruction  for  getting  the  appro- 
priate character  code  pointer  from  VCHTAB  before  calling 
DRWCHR. 

35.  FCXP . Contains  the  starting  X coordinate  for  the  next 
eyeball-sized  character  to  be  output  by  DRWCHR. 

36.  FCYP . Contains  the  starting  Y coordinate  for  the  next 
eyeball-sized  character  to  be  output  by  DRWCHR. 
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B . External 

1.  MTPTR.  Auto-index  register  10,  used  for  accessing 
words  in  the  current  tape  buffer. 

2.  PBUFSZ . Contains  the  2's  complement  of  the  length  of 
a tape  buffer. 

3.  VCHTAB . Table  of  eight-  and  seven-bit  ASCII  character 
code  pointers. 

4.  MVDATA..  Used  as  a temporary  counter  location. 

5.  LEFTX . Contains  the  X coordinate  for  the  beginning 
of  a page. 

6.  FILCNT.  Contains  the  2Ts  complement  of  the  number  of 
files  left  to  be  processed  in  the  current  batch. 

7.  FILNUM.  Contains  the  number  of  the  current  file. 

8.  RECNUM.  Contains  the  record  number  of  the  record  in 
CURBUF . 

9.  CHDELX.  Contains  the  value  to  be  loaded  into  the  X 
delta  register. 

CHDELY.  Contains  the  value  to  be  loaded  into  the  Y 
delta r e g i s t e r . 

11.  CHRSIZ . Contains  the  value  to  be  loaded  into  the 
size  register  by  SETPLS. 

12.  RECPIN.  Contains  the  value  to  be  loaded  into  the 
brightness  register  by  SETPLS. 

13.  RECSPT.  Contains  the  value  to  be  loaded  into  the  spot 
size  register  by  SETPLS. 
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14.  DM.  Contains  the  decimal  configuration  of  the 
number  after  GETNUM  is  called.  If  no  number  is  found 

‘‘by  GETNUM,  DECNUM  contains  a LAM. 

15.  MTCNT.  Contains  the  2's  complement  number  of  words  . 
read  into  the  tape  buffer. 

16.  TOPY.  Contains  the  beginning  Y coordinate  for  a page, 

17.  FRMPTR.  Points  to  the  beginning  of  the  form  to  be  * 
flashed. 

3. 3. 3.4  Flow  Charts.  -See  following  pages. 
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2.4  COMA  VARIAN  73  PRINT  PROCESSOR  FOR  105  mm  FICHE  (VAR105) 

2.4.1  Background 

A.  Author.  B.  Miller,  Aeronutronic  Ford  Corporation 

B.  Intent . The  requirements  for  this  program  are  specified 
in  SH-257 52  . 

C . Program  History 

1.  Production  Tape  Date.  26  November  1974 

2. '  Author.  B.  Miller 

3.  Authorization.  Clarification  form  A15;  SH-25752 
4..  Test  Case.  TPS  (JSC  Form  1225)  Number  A5 . 

5.’  Revisions . Reference  Appendix  B,  paragraph  B..4 

2.4.2  Introduction 

2.4. 2.1  Hardware  Requirements 
© FR8  0 with  ,12K  memory 

© 7-  and  9-track  tape  drive 

© 105  mm  fiche  camera 

2 .4 . 2 . 2 Software  Requirements 


VAR105 

.111161 

II 1164  FILM 

105SUB 

III161  GO 

III185 

III109 

III147 

II 1187 

III166  ■ 

III162 

NULL 

1 1 1 166  INVAR 

III162  MACRO 

’ FORM1  thru  FORM4 

III166  ADVAN 

III163 

I I 1166  TABLE 

' III164 
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2. 4. 2. 3 Assembly  Parameters 

A.  - ALLOW.  Allows  code  for  forms  loading  and  flashing  to  be 
■ assembled. 

B.  ASCII . Causes  the  7-bit  ASCII  table  to  be  assembled  as 
VCHTAB . 

C:  BATCH.  Allows  code  for  batch  processing  to  be  assembled. 

D.  BIGBUF . If  0,  allows  the  MONITOR  to  be  assembled  with  a 
maximum  number  of  features. 

E.  CAMNUM.  If  9,  camera  parameters  are  assembled  for  the 
fiche  camera. 

F.  FINDEX..  Allows  code  for  indexing  to  be  assembled. 

G.  FONT.  If  0,  allows  the  assembly  of  the  character  font 
FILM. 

H.  FTYPE.  Indicates  the  camera  type  (105). 

I. .  INDEX.  Allows  code  for  indexing  to  be  assembled. 

J.  MANYUP . Allows  code  for  fiche  processing  (multiple-  'images/, 
frame)  to  be  assembled. 

K.  MTMANY . If  0,  -code  for  using  only  one  drive  will  be 
assembled  in  the  tape  routines. 

L.  MTPTR.  If  10,  auto-index  register  10  will  be  MTPTR. 

M.  MT S LZTl . ■ Size  of  the  teletype  buffer. 

N.  MUMBLE . If  1,  allows  assembler  to  output  program  confi| 
ration  during  assembly. 

O.  NUMCAM.  If  1,  camera  may  not  be  changed  at  run  time. 

P.  PTYPE . If  3,  indicates  forms  are  assembled-  for  EBC. 
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Q.  TITLE . Allows  code  for  processing  and  outputting  title 
information  to  be  assembled. 

R.  TWOBUF . Allows  code  for  double-buffered  tape  reads  to  be 
assembled. 

S.  VARTAN.  Allows  specific  changes  in  the  SYM  files  for 
Varian  to  be  assembled. 

T.  42INDX.  Defines  size  of  the  buffer  for  storing  index  in- 
formation for  a fiche. 


u. 

7TRACK. 

If 

1, 

allows 

code 

for 

7-track 

read 

to 

be  assembled. 

V. 

9TRACK. 

If 

1, 

allows 

code 

for 

9-track 

read 

to 

be  assembled. 

2.4. 2.4  Operator  Commands 

A 

*TIME=15 : 47 ' 23. 9" 

*FRAME=0 
* CURRENT  PAGE=  0 
*G0 

^CONTINUE 
*TITLE 
*END  JOB 
*MAKE  F I LM= 1 
* CLEAR 
* ADVANCE 

*TAPE  TYPE  - 2,5,8  OR  9=9 

*BACK 

*PARITY=1 

*USE=1 

*REWIND 
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*SKIP 

*TRY  AGAIN=10 

*FORM=  NUL105  F0RM1  FORM2  FORM3  F0RM4 

* INDEX  FORM=  INDEX 

* ERROR  FORM=NO 

*PITCH-MARG'IN=35 , 52 

*SI  ZE.  OF  TITLE=  717  5,6150 

^IMAGES  PER  FICHE=16 , 14 

*HI  TS - CHARS , VEC , PTS , T I TLE , CMARK= 1 , 1 , 1 , 2 , 1 

*FOCUS 

* LOAD=VARI  05- 

* ROTATIONS 

* CARRIAGE  CONTROLS=2 

l=NONE, 2= VORTEX, 3=TERMINAL 

*LINES  PER  PAGE=60 

*. 

2.4,3  Analysis 

2 . 4 . 3 . 1 Majo.r  Control  Section 

A.  Description.  Prior  to  beginning  processing  of  a tape=,  the 
operator  has  the  capability  to  enter  the  type  of  carriage 
controls  and  the  number  of  lines  per  page  vfa  MONITOR.  The 
default  values  are  VORTEX  carriage  controls  and  6Q  lines 
per ’ page . 

After  MONITOR  receives  the  GO  command,  the  program  sets  the 
location  and  length  of  the  buffers  (NEXBUF  and  CURBUF)  to 
'be  used  for  the  doubled-buf f ered  tape  read.  Then  IXINIT 
is  called  to  initialize  indexing  parameters.  FRSPI-C  is 
called  to  initialize  for  multiple  images  per  frame.  A 
NOP  is  put  in  IFLASW  so  that  the  index  form  won't  be 
flashed  on  the  blank  fiche  produced  by  FC7CLR.  MTRINI  is 
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then  called  to  initialize  all  pointers  for  the  double- 
buffered  read  and  to  read  the  first  two  records  into  the 
corresponding  buffers.  CTRLCK  checks  for  and  processes 
fiche  control  records.  CTRLCK  will  continue  reading  the 
tape  and  processing  control  records  until  the  first  data 
record  is  encountered. 

If  no  job  separator  record  was  found  (S.FLAG  = NOP),  JOBTLE 
requests  tape  identification  information  (five  characters.) 
from  the  operator.  Also,  DFCTRL  loads  and- processes  de- 
fault job  separator  and  titling  information. 

Before  starting  to  output  data,  HEADER  sets  the  PLS  hard- 
ware for  printing  and  TOPPAG  sets  the  coordinates  for  the 
beginning  of  a page,  IFLASW  is  changed  to  a SKP  so  that 
the  index  form  will  flash.  VCHTAB,  the  table  of  eight- 
and  seven-bit  ASCII  character  code  pointers,  is  loaded  as 
the  base  address.  Bit  0 is  set  when  the  base  address  is 
loaded  so  the  character  generator  will  be  in  the  8-bit/byte 
mode . 

Then  the  program  enters  the  main  print  loop.  Here,  pro- 
cessing branches  to  one  of  three  different  sequences 
depending  on  whether  the  carriage  control  is  NONE,  VORTEX 
or  TERMINAL.  For  processing  with  NONE  carriage  controls, 
the  routine  CTRLCK  reads  the  next  record  and  checks  to 
see  if  it  is  a control  record.  If  so,  it  is  appropriately 
processed  and  the  next  record  is  read  and  checked.  This 
sequence  continues  until  the  print  data  is  accessed. 

NEXTLN  is  then  called  to  do  a carriage  return  and  line  feed 
(or  new  page  when  the  current  page  is  full) . The  number  of 
bytes  in  the  record  (MTCNT  times  2)  is  loaded  as  the 
character  count,  and  MTPTR,  which  contains  the  address  of 
the  current  tape  buffer,  is  loaded  as  the  starting  address. 
Then  the  character  generator  is  started.  After  the  line 
is  -plotted,  the  program  returns  to 'the  beginning  of  the 
print  loop  where  CTRLCK  is  called  to  read  and  check  the 
next  record. 

When  processing  with  VORTEX  carriage  controls,  the  routine 
CTRLCK  performs  the  same  function  as  above  until  a print 
record  is  accessed,  GTCTRL  then  checks  the  first  byte  of 
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this  record  and  decides  what  carriage  control  to  execute. 
MTCNT  times  2'  plus  1 (to  compensate  for  the  carriage  conr 
trol  byte)  is  loaded  as  the  count  for  the  character 
generator.  The  starting  address  has  bit  0 set-  so  that  the 
character  generator  will  start  with  the  right-most  byte  of 
the  first  word.  The  character  generator  is  then  started. 
After  the  line  is  plotted,  the  program  returns  to  the 
beginning  of  the  print  loop  where  CTRLCK  is  called. 

Processing  with  TERMINAL  carriage  controls  requires  that 
each  byte  be  checked;  since  a carriage  control  may  be  any 
byte(s)  in  the  record.  CTRLCK  performs  the  same  function 
as  above  until  a print  record  is  accessed.  SAVCNT  (MTCNT 
times  2)  is  loaded  and  the  character  count  and  the  contents 
of'  MTPTR  is  loaded  as  the  starting  address.  The  program 
then  branches  to  GTINIT  where  MTCNT  and  MTPTR  are  initial- 
ized for  GTBYTE . INDXER  is  zeroed  so  that  IXLOAD  is  never 
called  in  NEXTLN.  GTBYTE  is  set  up  for  a first  pass  and 
IXCHCK  is  called  to  check  for  indexing  on  the  current  line. 

At  GTNGO,  GTBYTE  is  called  to  retrieve  a byte  from  the 
current  tape  buffer.  If  the  byte  is  not  a carriage  control, 
it  is  stored  in  TITARE  if  the  current  line  is  the  index 
line,  and  then  is  plotted  on  film.  The  character  count 
for  the  current  line  (IXCNT)  is  then  incremented.  Then,  at 
ISZCNT,  the  2Ts  complement  of  the  characters/record  count 
(SAVCNT)  is  incremented.  If  the  count  is  not  exhausted,  the 
program  returns  to  GTNGO  to  get  and  process  the  next  byte.’ 
When  SAVCNT  is'  exhausted,  MTCNT  is  changed  to  a LAM  so  that 
the  next  record  will  be  read.  Then  the  program  returns  to 
the  beginning  of  the  print  loop. 

Terminal  carriage  control  bytes  are  214  (or  14),  212  (or  12), 
and  215  (or  15)..  If  the  byte  retrieved  at  GTNGO  is  a 215 
■(or.  15)  the  program  branches  to  SAMLIN.-  A 214  (or  14) 
results  in  jumping  to  NXTPG  and  a 212  (or  12)  causes  the 
program  to  go  to  NXTLN. 

At  -SAMLIN,  the  routine  IX. DO  processes  the  index  information 
if  the  current  line  is  the  index  line.  Then  the  characters/ 
line  count  (IXCNT)  is  zeroed  and  THISLN  is  called  to  ‘set  up 
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or  me  uverpruit,  The  program,  then  returns  to  ISZCNT. 
tt  NXTPG , NXPAGE  is  called.  (If  the  last  line  output  is 
:he  index  line,  the  information  in  TITARE  will  be  pro- 
:essed  in  -NXPAGE.)  IXCNT  is  initialized  and  IXCHCK  is 
:alled  to  check  for  indexing  with  the  first  line.  The  • 
irogram  returns  to  ISZCNT.  At  NXTLN,  IX. DO  processes  the 
.ndexing  information  if  the  line  just  filmed  was  the  index 
.ine . NEXTLN  then  executes  the  carriage  return/line  feed 
or  goes  to  a new  page  when  necessary) . IXCHCK  checks  to 
;ee  if  the  line  to  be  output  next  is  the  index  line.  The 
>rogram  then  returns  to  ISZCNT. 


Mien  an  end-of-file  is  encountered,  NEXPAG  is  called  to 
zinish  the  current  page.  Then  FICFIN  finishes  the  current 
ziche . If  this  file  is  the  last  one  in  this  batch  to  be 
jrocessed,  S.FLAG  is  initialized  to  a NOP.  If  no  job 
separator  was  encountered,  the  file  number  in  the  JOBNAM 
. buffer  is  updated.  The  file  number  (FILNUM)  is  incremented 
and  the  record  counter  (RECNUM)  and  form  number  (FRMNUM) 
are  initialized  to  zero.  Then  the  next  file  is  processed. 
Upon  finding  a second  end-of-file,  S.FLAG  and  JOBTLE  are 
reinitialized  for  processing  a different  tape. 

B.  Input/Qutput 


1.  Input . . Input  is  a 7-  or  9 -track  Varian'  73  print  tape. 

2.  Output . Output  is  to  105  mm  microfiche. 

C . Linkages 

1.  External  Routines 


FCFIN 

FLASH 

INDXDO 

MDOUT 

MTRINI 

ROTTST 

FC7CLR 

FRSPIG 

KYBLIS 

MMESSG 

. NEXPIC 

SETPLS 

FICTAP 

GETNUM 

MCRLF 

MTLAC 

PSTLL 

Internal 

Routines 

BMSTLL 

FRF LAS 

IXCHCK 

IX. DO 

NEXPAG- 

PPAGE 

CRGCTL  ■ 

' GTBYTE 

IXINIT 

JOBTLE 

NEXTLN 

THISLN 

CTRLCK 

GTCTRL 

IXLOAD 

LDINFO 

NXPAGE 

TOPPAG 

DFCTRL 

HEADER 

IXPAGE 

LINES 

PFLASH 

2SPACE 

2.4. 3. 2 Subroutines 

A.  IXPAGE . Initializes  each  page  for  indexing  by  resetting  th 
index  line  counter  (INDXER)  , by  putting  a NOP.  in  IXLDSW  to 
indicate  that  the  index  information  for  this  page  has  not 
been  stored,  and  by  blank-filling  the  index  area  of  the  buf- 
fer TITARE. 
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B.  IXINIT.  Called  at  the  beginning  of  each  job  to  default  all 
indexing  parameters.  In  the  event  that  an  indexing  record 
is  encountered,  all  the  parameters  will  be  reset.  Otherwise 
the  line  number  for  indexing  (INXLIN)  shall  be  1,  indexing 
will  start  with  the  32nd  character  (INXCHR) , and  the  index 
field  shall  be  20  characters  in  length  (IXXLEN) . 

C.  IXLOAD.  Used  only  for  VORTEX  and  NONE  processing.  Loads 
the  index  line  into  the  buffer  TITARE  and  calls  INDXO, 
which  processes  the  .index  line.  At  the  point  in  the  pro- 
gram where  IXLOAD  is  called,  the  data  for  the  last  line 
output  is  in  the  previous  tape  buffer,  NEXBUF.  The  record, 
beginning  with  the  second  byte  if  processing  with  VORTEX 
controls,  is  transferred  one  byte  per  word  into  the  buffer 
TITARE  by  the  subroutine  GTBYTE , A SKP  is  deposited  in 
IXLDSW  to  indicate  that  the  page  has  been  indexed  and  MTPTR 
is  restored  for  the  print  loop. 

D.  LDINFO'.  Used  to  load  the  default  job  titling  and  the  job 
separator  information  into  TITARE.  Then  the  subroutine 
FICTAP  is  called  to  process  the  information  in  the- buffer. 
LDINFO  is  called  with  the  2’s  complement  of  the  number  of 
entries  to  be  transferred  to  TITARE  in  the  accumulator. 

The  next  instruction  after  the  JMS  LDINFO  should  load  the 
accumulator  with  the  address  of  the  buffer  containing  the 
.information  to  be  transferred  minus  one.  This  instruction 
is  executed  within  LDINFO,  and  subsequently ' the  retifrn 
address  of  LDINFO  is  incremented.  . 

E. .  JOBTLE.  Called  if  no  job  separator  record  is  encountered 

before  the  print  data  is  accessed.  The  message  ENTER  TAPE 
NUMBER:  is  output  at  the  teletype  via  MMESSG.  Then  the 
input  characters  (five  entries)  are  read  and  printed  at 
the  teletype.  If  a RUBOUT  (ASCII  377)  is  encountered,  the 
routine  branches  back  to  its  beginning;  otherwise,  the  five 
entries  are  stored  in  the  buffer  JOBNAM.  The  sixth  entry 
of  JOBNAM  is  the  current  file  number  (in  ASCII  configuration 

F.  DFCTRL . Loads  and  processes  the  default  job  separator  and 
job  title  information  if  no  job  separator  is  initially 
encountered  at  the  beginning  of  the  file.  The  subroutine 
LDINFO  is  used  to  transfer  the  information  in  SEPREC 
(default  iob  title  information). 
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G.  GTBYTE . ' Unpacks  the  16  least  significant  bits  of  a word 
into  two  eight-bit  bytes.  The  left-most  byte  is  returned 
in  accumulator  on  the  first  call  and  the  right-most  byte 
is  returned  on  the  second  call,  etc.  MTPTR  points  to  the 
word  to  be  unpacked. 

H.  HEADER.  Loads  the  appropriate  X-delta,  Y-delta,  spot  size, 
character  size,  and  intensity  registers,  and  then  sets  the 
optical  hardware  via  SETPLS. 

I.  NEXPAG . Finishes  the  current  page  by  flashing  the  forms 
(if  any)  via  PPAGE  and  FRFLAS , advances  to  the  next  frame 
(or  fiche  when  necessary)  by  calling  NEXPIC,  and  initial- 
izes for  the  next  page  with  the  routines  TOPPAG  and  HEADER. 

J.  TOPPAG.  Resets  the  line  count  (LNCNT) , resets  the  X and 
Y DAC's  to  the  beginning  position  for  a page,  and  calls 
IXPAGE  to  initialize  for  indexing  this  page. 

K.  FRFLAS . Flashes  the  overall  form  if  one  has  been  loaded. 

L.  PPAGE.  Flashes  the  error  form  (if  one)  and  other  forms 
(if  any)  if  FLASSW  is  set  to  a NOP.  If  FLASSW  is  a SKP, 
no  forms  will  output. 

M.  IXCHCK.  Used  only  when  processing  with  TERMINAL  carriage 
controls.  This  routine  checks  IXLDSW  to  set  if  this  page 
has  been  indexed.  If  so,  the  subroutine  exits.  Other- 
wise, the  current  line  count  is  checked  for  being  the 
index  line.  If  it  isn't,  IXSW  is  changed  to  a SKP  to  pre- 
vent storage  of  the  bytes  in  TITARE,  and  the  routine  exits. 
If  the  current  line  is  the  index  line,  IXSW  is  changed  to 

a NOP  so  that  the  non-carriage  control  bytes  will  be  stored 
in  TITARE, 

N.  THISLN.  Called  when  the  carriage  control  is  to  overprint 
the  next  line.  The  index  line  count  (INDXER)  is  incre- 
mented and  then  checked  for  being  zero.  If  it  is,  the 
line  just  filmed  contains  the  index  information  and  is 
transferred  to  TITARE  by  IXLOAD.  Otherwise,  the  index  line 
count  is  restored!  Then  the  X DAC  is  repositioned  to  the 
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beginning  of  the  current  line,  and  BMSTLL  allows  the 
• DA'C’s  to  settle  before  returning  to  the  main  loop. 

0 ' NEXTLN.  Called  when  the  carriage  control  is  a single 

spaceT  The  index  line  count  (INDXER)  is  incremented^ and 
checked  for  being  zero.  If  it  is,  the  record  just  filmed 
is  loaded  into  TITARE  and  processed  by  IXLOAD.  Then  the 
page  line  number  (LNCNT)  is  incremented  and  checked  for 
being  zero.  If  it  is,  the  page  is  full  and  the  routine 
branches  to  NUPAGE  where  NXPAGE  is  called.  If  LNCNT 
is  not  zero,  CRT  is  executed  and  BMSTLL  is  called  to 
allow  the  DAC ' s time  to  settle  before  processing  the 
next  line. 

P.  NXPAGE.  First  checks  IXLDSW  to  see  if  the  current  page ^ 
has  been  indexed.  If  not,  the  blank-filled  area  of  TITARE 
is  processed  as  the  index  information  by  INXDO.  Then 
FLASSW  is  changed  to  a NOP  to  allow  forms  to  be  flashed  and 
NEXPAG  is  called.  KYBLIS  checks  for  interrupts  before 
■ exiting  NXPAGE. 

0.  GTCTRL.  Decodes  the  VORTEX  carriage  control  bytes..  The 
' • word  from  the  tape  buffer  with  the  carriage  control  in  . 
the  left-most  byte  should  be. in  the  accumulator  prior,  to 
entering  GTCTRL.  The  contents  of  the  accumulator  are 
‘ shifted  right  eight  bits  and  the  six  least  significant  bits 
are  masked  off  and  retained.  A result  of  61  causes  the 
‘program  to  branch  to  NXPG,  where  the  subroutine  NXPAGE  is 
calledl  If  the  result  is  "53,  the  program  branches  to 
SAMLIN  and  then  calls  THISLN.  If  the  carriage  control  is 
a 60,  2SPACE  is  called  to  space  down  the  first  line  (in 
case’ of  indexing  on  the  blank  line)  and  then  NEXTLN  is 
called'.  Any  other  code  results  in  NEXTLN  being  called. 

R.  2SPACE.  First  calls  NEXTLN,  then  the  line  number  of  the 
line  to'be  left  blank  is  checked  for  being  the  index  line. 
If 'it  is,  the  blank -filled  area  of  TITARE  is  processed 

as. the  index  information  for  this  page  by  IX. DO. 

S.  BMSTLL.  Allows  a delay  of  120  cycles. 
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T*  CTRLCK.  Calls  MTLAC  to  read  the  next  record  and  retrieve 
the  first  word  from  the  current  tape  buffer.  Then  the  2’s 
complement  characters/line  count  CSAVCNT)  is  computed.  The 
first  byte  of  this  record  is  then  checked  for  being  a 245, 
indicating  a fiche  control  record.  If  it  isn’t,  the.  pro- 
gram returns  to  the  print  loop  where  the  record  is  output. 
Otherwise,  the  second  byte  is  then  checked.  An  S record 
is  processed  at  SREC , where  JOBTLE  and  S . FLAG  are  set  to 
indicate  the  tape  ID  information  came  from  a control 
record,  and  then  the  program  goes  to  CREC  where  the  record, 
beginning  with  the  2nd  byte,  is  stored  into  TITARE  and 
decoded  by  FICTAP.  F,  T,  C,  or  B records  are  processed 
at  CREC.  Then  the  program  returns  to  the  beginning  of 
CTRLCK  where  MTLAC  reads  the  next  record.  (If  a control 
record  is  not  one  of  the  above  type  records,  the  program 
returns  to  the  print  loop  where  the  record  is  output.) 

2. 4. 3. 3 Constants  and  Variables 


A.  Internal 


1.  SAVCNT.  Contains  the  2’s  complement  number  of  charac- 
ters to  be  output  in  the  current  line,  computed  by 
doubling  the  number  of  words  (MTCNT)  in  the  record 
just  read.  If  processing  with  VORTEX  controls,  the 
carriage  control  byte  is  compensated  for  by  adding  one. 

2.  NEXBUF . Contains  the  address  of  the  buffer  to  be  used 
during  the  next  tape  read. 

3.  SAVICT . Contains  the  number  of  characters  to  be  out- 
put in  the  current  line  (2’s  complement  of  SAVCNT). 

4.  IXXXX.  Index  line  number,  used  only  with  terminal 
controls.  A different  scheme  for  indexing  must  be 
used  since  a line  may  consist  of  more  than  one  record. 

5.  IXLCNT . SAVCNT  for  the  previous  read;  the  count  used 
for  moving  the  record  into  TITARE. 
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6.  IXCNT . Character  count  tor  a line,  usea  wnen  processing 
with  terminal  controls  for  counting  characters  in  a line 
that  may  be  more  than  one  record  in  length. 

7.  TMPCT.  A multi-purpose  variable. 

8.  INDXER.  The  2’s  complement  of  the  index  line  number. 

.9.  CURBUF . Contains  the  address  of  the  current  tape  buffer. 

10.  SV.  Contains  the  first  carriage  control  byte  of  a job 
(when  processing  with  VORTEX  controls). 

Ill  LNCNT.  Currently  contains  the  2's  complement  of  the 
line ’ s per  page  minus  the  current  line  number. 

12.  TEMP.  Multipurpose  location. 

13 . VCHYI . Contains  the  beginning  Y coordinate  for  a page 

'14.  GTSAVE . Contains  the  word  from  the  tape  buffer  cur- 
rently being  unpacked  by  GTBYTE. 

15.  TNMBR.  Counter  used  for  reading  teletype  entries  in 
JOBTLE. 

16.  NTREE.  Contains  the  current  entry  from  the  teletype. 

a 

i 

17.  IXLINB . Default  index  line  number  (=  1). 

18.  IXSTRT . Default  beginning  index  character  number 
(=  32). 

19.  IXLONG . Default  length  of  the  index  field  (=  20). 

20.  SEPREC . -Name  for  buffer  containing  the  default  job 
separator  information. 

21.  JOBNAM.  Name  of  buffer  within  SEPREC  which  contains 
the  information  input  by  operator  as  the  first  five 
entries,  and  the  file  number  in  ASCII  as  the  sixth. 
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22.  TLEREC . Name  of  the  buffer  containing  the  default 
title  record  information. 

23.  IXSW.  If  NOP,  allows  storing  of  index  information 
into  TITARE;  used  only  if  processing  with  terminal 
controls . 

24.  IXLDSW.  If  NOP,  indicates  that  index  information  has 
not  been  encountered.  IXLDSW  is  changed  to  a SKP 
once  the  information  for  the  current  page  has  -been 
processed. 

25.  TNMMSG.  Name  of  buffer  containing  the  message  ENTER 
TAPE  NUMBER : . 

26.  ILLEGL . Name  of  buffer  containing  message  INVALID 
ENTRY. 

27.  CCTYPE.  Name  of  buffer  containing  the  message  1=N0NE, 
2=V0RTEX, 3=TERMINAL , displayed  on  the  monitor  to 
explain  the  carriage  control  option. 

28.  XORWRD . For  VORTEX  carriage  controls,  equals  400,000; 
otherwise,  it  is  zero.  Used  to  initialize  the  starting 
address  for  the  character  generator. 

29.  CTRL.  Contains  the  carriage  control  indicator  (1  for 
NONE,  2 for  VORTEX,  or  3 for  TERMINAL) . This  is 
operator-accessible  via  MONITOR. 

30.  LNS . Contains  the  maximum  number  of  lines  per  page. 

The  default  value  is  60;  however,  LNS  is  operator- 
accessible  via  MONITOR. 

S 

31.  ERF LAG . Indicates  an  error  if  set  to  a LAM.  Allows 
error  form  (if  one  has  been  loaded)  to  be  flashed  on 
the  page. 

32.  ERFMFL.  Contains  the  address  of  the  error  form  if  this 
form  has  been  loaded. 
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33 . FRAMFL.  Contains  the  address  of  the  overall  form  if 
this  form  has  been  loaded. 

34.  FRMNUM.  Contains  the  number  of  the  form  to  be  flashed 
(0,1, 2, 3,  or  4). 

35.  FRMTAB . Table  of  the  addresses  of  the  forms  which  • 
have  been  loaded. 

36 . LENGTH.  The  2's  complement  of  the  length  of  a single 
tape  buffer. 

37.  BUFFER.  Area  reserved  for  the  tape  buffers 

38 . XFOFF . Contains  X offset  for  using  forms. 

39.  YFOFF.  Contains  Y offset  for  using  forms. 

40.  CHRSZ . Contains ‘ character  size  to  be  used. 

41.  ' SPCNUM.  Contains  number  of  scope  points  to  be  used 

fo.r  a character  space. 

42.  LNFDN.  Contains  number  of  scope  points  to  move  during 
a line  feed. 

43.  BLANK.  Contains  tape  code  for  a' blank. 

44.  FORMSW.  Indicates  that  a form  has  been  loaded  if  it 
contains  a SKP. 

i. 

‘i 

B . External 

1.  T I TARE.  Name  of  buffer  where  the  fiche  control  records 
and  index  records  are  stored  (one  byte/word)  before 
being  processed. 

2.  INXLIN.  Contains  the  line  number  of  the  line  to 
used  for  indexing. 
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3.  INXCHR.  Contains  starting  character  position  .w.i thin 
the  line  for  beginning  indexing. 

4.  IXXLEN.  Contains  2’s  complement  of  the  length  of' the 
index  field. 

5.  MTPTR.  Auto-index  register  10,  used  for  accessing 
words  in  the  current  tape  buffer. 

6.  PBUFSZ . Contains  2's  complement  of  the  length  of  a 
tape  buffer. 

7.  IFLASW.  Allows  index  form  and  information  to  be  out- 
put if  it  contains  a SKP.  A NOP  in  IFLASW  prevents 
index  output. 

8.  VCHTAB.  Table  of  eight-  and  seven-bit  ASCII  character 
code  pointers. 

9.  MVDATA . Used  as  a temporary  counter  location. 

'10.  LEFTX . Contains  X coordinate  for  the  beginning  of  a 
4 page. 

11.  FILCNT.  Contains  2’s  complement  of  the  number  of  files 
left  to  be  processed  in  the  current  batch. 

12.  F I LNUM . Contains  number  of  current  file. 

13.  RECNUM.'  Contains  record  number  of  record  in  CURBUF. 

14.  CHDELX.  Contains  va.lue  to  be  loaded  into  X delta 
register. 

15.  CHDELY.  Contains  value  to  be  loaded  into  Y delta 
register. 

16.  • CHRSIZ.  Contains  value  to  be  loaded  into  size  register 

by  SETPLS . 
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1-7.  RECP-IN.  Contains  value<  to  be  loaded  into  brightness 
register  by  SETPLS. 

18 . • RECSPT.  Contains  value  to  be  loaded  into  spot'  size' 

register  by  SETPLS. 

19.  DECNUM.  Contains  decimal  configuration  of  the  number 
after  GETNUM  is  called.  If  no  number  is  found  by 
GETNUM,  DECNUM  contains  a LAM. 

<20.  MTCNT.  Contains  2’s  complement  number  of  words  read 
into  the  tape  buffer. 

2. 4. 3. 4 Plow  Charts . See  following  pages. 
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2.5  • COMA  HCO  TABULAR  PROCESSOR  FOR  105  mm  FICHE  (HCOTAB) 

2 . 5 .1  Background 

A.  Author . Franklin  C.  Ashton,  Aeronutronic  Ford  Corp. 

B.  Intent. ' HCOTAB  processes  9-track  and  7-track  magnetic 
tapes  formatted  in  36-bit  DTE  language  as  delineated  by 
SI SO.  . 

C.  Program.  History 

1.  Production  Tape  Date.  ‘ 26  November  1974 

2.  Author . Franklin  C.  Ashton 

3.  Authorization.  E0-191F 

4.  Test  Case.  TPS  No.  A6 

5.  Revisions . Reference  Appendix-  B,  paragraph 

2.5.2  Introduction 

2. 5. 2.1.  Hardware  Requirements 
© FR80  with  12K  memory 
© 9-track  magnetic  tape  unit 


9 7 -track  magnetic  .tape  unit 

© .105  mm  camera 


2. 5. 2. 2  Software  Requirements.  The  following  files,  found  in 
Ill's  SYM  Directory,  are  required. 


II  Id  09 
1 1 1 1 6 6 
III164 
III162 
III185 


I I 1164  FILM 
III163 
III147 
III186 
PRINTF  COMM 


III161 
II 1161  GO 
III187 
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2. 5, 2. 3 Assembly  Parameters.  The  assembly  parameters  in  I I 1109 
shall  be  set  for  the  proper  machine  configuration.  Assembly 
parameters  specific  to  the  HCOTAB  Processor  are  as  follows. 

A'.  TWOBUF.  If  1,  indicates  two  magnetic  tape  buffers  for 
higher  throughput. 

B.  BIGBUF . If-  0,  allows  maximum  amount  of  operator  functions 
with  minimum,  buffer  space. 

C.  DASHED.  Assemble  code  for  generation  ‘ of  dashed  .vectors. 

D.  CIRCLE.  Assemble  code  for  generation  of  circles  and. arcs. 

E.  LOCASE . Lower  case  character  set  required. 

F.  EBCDIC. ' Entire  EBCDIC  character  set.  required. 

G.  7TRACK.  If  1,  7-track  magnetic  tape  handler  required. 

H.  9TRACK.  If  1,  9-track  magnetic  tape  handler , required. 

I.  MUMBLE . Defines  system  configuration  output  via  teletype 
during  assembly. 

J:.  FONT.  If  0,  assemble  standard  III  character  font. 

K.  TAPE LB . Assemble  code  for  processing  of  IBM  standard  tape 
- labels. 

L.  DTE . If  1,  assemble  code  specific  to  36-bit  DTE  processing. 

M.  NASA.  . If  1,  include  NASA-specific  character  descriptors 
in  character  set. 

N.  MANYUP . • If  1,  defines  code  for  multiple  images  per  frame 
for  105  mm  microfiche. 

O.  TITLE . If  1,  assemble  routines  for  fiche  titling. 
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2. 5. 2.4  .Operator  Commands.  The  following  commands,  entered  by 
the  operator  via  teletype,  are  available  for  use  with  the  HCOTA'B 
program. 

TIME , ‘ 

FRAME 

GO 

CONTINUE 

TITLE 

END  JOB 

CLEAR 

REWIND 

SKIP 

TRY  AGAIN 
STANDARD  LABEL 
UNLABELLED 


2.5.3  Analysis 

2 . 5 . 3 . 1 . Major  Control  Section 

A.  Description.  Upon  issuance  of  a GO  command  by  the  operator 
via  the  console  teletype,  the  III  routine  PSTART  transfers 
control  to  the  DTE  processing  routine  BEGIN.  BEGIN 
•initializes  all  switches  and  does  initial  camera  advancing 
and  positioning  using  III  routines  FC7CLR,  FRSPIC,  and 
NEXPIC.  A call  is  made  to  BATNO  for  input  from  teletype- 
of  the  -COM  tape  number,  source  tape  number,  and  film  roll 
number.  BATNO  initializes  the  fiche  title  routine ,- FICTAP, 
for  the  ID  fiche.  BEGIN  then  determines  the  location  and 
size  of  the  data  input  buffer,  calculates  the  X and  Y 
scaling  factors  for  centering  the  image  in  the  16K  by  16K 
area,  and  transfers  control  to'GETCOM,  which  initializes 
parameters  to  access  a DTE  data  word  and  transfers  control 


z-  z?  t; 


SISO-TR531 
Vol.  II 


to  BITCNT .•  BITCNT,  using  the  III  routine  MTBYTE,  accesses 
the  number  of  data  bits  requested  by  GETCOM  and  transfers 
control  to  GETOP  with  the  data  bits  in  the  AC  (up  to  18 
bits  per  access) . 

When  a magnetic  tape  read  is  initiated  and  it  is  the 
initial  read  for  a job,  a test  is  made  by  BITCNT  for  COM 
controls.  If  they  are  not  present,  the  data  is  ignored 
and  the  next  data  record  is  accessed.  This  procedure  is 
repeated  until  the  first  COM  control  record  is  accessed, 
when  BITCNT  checks  for  a S or  T identifier  in  the  second 
byte  of  the  record.  If  it  is  found,  the  record  is  moved 
to  buffer  TITARE  for  output  via  the  III  routine  FICTAP. 

All  records  following  the  first  COM  control  record  are 
ignored  for  105  mm  processing  until  a second  COM  control 
record  is  accessed.  BITCNT  processes  the  second  COM  con- 
trol record  in  the  same  manner  as  the  first  and  transfers 
control  to  GETOP  for  processing  of  DTE  data.  GETOP  deter- 
mines from  the  DTE  op  code  the  type  of  DTE  data  word  to  be 
processed.  The  following  paragraphs  delineate  the  pro- 
cessing done  for  each  type  of  DTE  data  word. 

When  the  DTE  word  is  a COMMAND,  GETOP  transfers  control  to 
ENDLN,  which  does  a check  to  determine  if  the  word  is  a 
JUMP.  If  not,  it  is  ignored  and  control  is  returned  to 
GETCOM.'  When  the  word  is  a JUMP;  control  is  transferred 
to  NEXFRM  for  advance  to  next  frame  via  NEXPIC.  Control 
is  then  returned  to  GETCOM. 

When  the  DTE  word  is  a VECTOR,  the  X^Yx  and  X2Y2  coordinates 
are  calculated  and  placed  in  XHD,  YHD,  XTL,  and  YTL.  Con- 
trol is  transferred  to  MAP,  which  scales  the  heads  and  tails 
to  the  image  size  specified  by  DFRSZ,  The  X and  Y DAC’s 
are  set  via  SETXYS,  the  vector  is  output  by  DRWVEC,  and 
control  is  returned  to  GETCOM. 

When  a START  -PRINT  word  is  accessed,  TYPSW  ([typewriter 
switch)  is  set  to  allow  processing  of  typewriter  words. 

The  character  and  character  size  are  then  masked  from  the 
START  PRINT  word  and  used  to  calculate  the  corresponding 
FR80  character  and  character  size.  This  size  is  used  for 
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all  characters  until  changed  by  another  START  PRINT  word. 
Control  is  transferred  to  NOINDX.  NOINDX  scales  the  X and 
Y START  PRINT  coordinates  to  the  FR80  image  size  via  MAP, 
sets  the  X and  Y DAC’s  using  the  III  routine  SETXYS,  and 
outputs  the  START  PRINT  character  via  CHROUT.  Control  is 
then  returned  to  GETCOM. 

When  the  DTE  word  is  a TYPEWRITER,  the  typewriter  switch 
(TYPSW)  is  checked.  When-  TYPSW  is  not  set,  the  system 
halts  (i.e.,  no  previous  START  PRINT  word  to  give  coordinates). 
When  TYPSW  is  set,  each  character  of  the  TYPEWRITER  word  is  - 
output  via  CHROUT.  CHROUT  converts  each  DTE  character  to 
the  appropriate  FR80  character  code  and  size  and  outputs 
the  character  using  III  routine  VCHAR.  When  the  last 
character  of  the  TYPEWRITER  word  is  processed,  control  is 
returned  to  GETCOM. 

B.  Inpnt/Output 

1.  Input . Data  input  via  9-track  magnetic  tape  consists 
of’  DTE  36-bit  command,  instruction,  and  data  words 
and  COM  control  records.  All  input  data  tapes  are 
recorded  in  a variable  spanned  length  record  format 
(blocked  or  unblocked) . Detailed  descriptions  of  the 
format (s) /data  content  of  the  magnetic  data  tapes  are 
found  in  SH-09607A. 

2.  Output . Data  is  output  to  105  mm  film.  Each  frame 
contains  one  DTE  image. 

3 . Message  Output' 

a.  ENTER  SOURCE  TAPE.  Output  to  the  teletype'  at  job 
initialization.  Operator  inputs  up  to  12  characters 
of"  information,  terminated  by  a carriage  return. 

b.  ENTER  COM  TAPE.  Output  to  the  teletype  after  ENTER 
SOURCE  TAPE  response.  Operator  inputs  up  to  12 
characters  of  information,  terminated  by  a carriage 
return. 
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c.  ENTER  ROLL.  Output  to  the  teletype  after  ENTER  COM 
TAPE  response.  Operator  inputs  up  to  12  characters 
of  information,  terminated  by  a carriage  return.' 

C,.  Linkages 

1.  External 


Routine 


Program 


FC7CLR 

FRSPIC. 

MNBRIT 

NEXPIC 

MTRINI 

KYBLIS 

GETT 

SETXYS 

SETHD 

SETTL 

DRWVEC 

PSTLL 

SETPLS 

VCHAR 

MTBYTE 

FICTAP 

MDONEX 

FCFIN 

FLASH 


Internal 

Routines 

BATNO 

NOINDX 

GETCOM 

SETCR 

GETOP 

CHROUT 

GETCR 

ENDLN 

TYPSW 

CONVRT 

TYPLP 

. NEXFRM 

TYPNL 

BITCNT 

TYEMA 

GETSEG 

TYPCR 

GETSG1 

III166 
111166 
III166 
1 1 1166 
III163 
III166 
III163 
III  16  2 
III162 
III162 
III162 
III166 
III166 
III147 
III163 
III186 
II 1166 
III166 
1 1 1 18  7 


GET.SG2 

SAVADD 

GETBLK 

RESTOR 

CCNTRL 

RETRN 

SEPREC 

RESET 

TITREC 

NEWSEG 

IGNORE 

EBGET  . 

BTTY 

MVCOM 

BATEND 

MAP 

IGN0R1 

SCAL 
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2.5. 3. 2 Subroutines 

A.  BATEND . Outputs  the  trailing  ID  fiche  at  end  of  job. 

Calling  sequence:  JMS  BATEND 

B.  BATNO . Accepts  source  tape  number,  COM  tape  number,  and 

roll  number  from  the  operator.  The  subroutine  is  called 
to  output  the  title  fiche.  Calling  sequence:  JMS  BATNO 

C.  BITCNT . Entered  with  the  AC  containing  the  number  of  bits 

to  be  accessed.  Uses  MTBYTE  to  get  bits  requested,  re- 
turning to  the  calling  routine  with  the  bits  requested  In 
the  AC.  Calling  sequence,  where  1 < N < 18: 

LAC  N 

JMS  BITCNT 

D.  BTTY . Accepts  up  to  12  characters  from  TTY  and  stores  one 
character  per  word.  If  the  user  wishes  to  use  less  than  ' 

12  characters,  he  terminates  the  string  of  input  characters 
with  a carriage  return  and  the  routine  will  space-fill  the 
rest  of  the  buffer.  The  subroutine  converts  ASCII  charac- 
ters to  EBCDIC.  A rubout  character  - will  allow  the  user  to 
start  reinputting  the  character  string.  Calling  sequence, 
where  LAC  is  address  of  where  to  store  character: 

LAC 

JMS  BTTY 

E.  CCNTRL.  Accesses  eight-bit-  carriage  control  characters 

via-  GET  and  checks  for  COM  control  indicator.  If  it  is 
not  found,  routine  exits.  If  it  is  found,  routine  checks 
next  byte  for  legitimate  COM  control  function  and  branches 
to  the  proper  handler.  Calling  s.equence : JMS  CCNTRL 

F.  CHROUT.  Entered  with  the  AC  containing  a character  to  be 
output.  Converts  character  to  EBCDIC  via  CONVRT,  outputs 
character  via  VCHAR,  and  returns  control  to  calling  routine. 
Calling  sequence,  where  N = eight-bit  DTE  character: 

LAC  N 

CHROUT 


REPRODUCIBILITY  OF  THE 
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•G-.-  CONVRT . Entered  with.  DTE  character  in  AC.  Character  is 
converted  to  EBCDIC  via  DTETAB  table.  Exit  is  to  calling 
routine  with  converted  character  in  AC.  Calling  sequence, 
where  N = DTE  character: 

' LAC  N • 

JMS  CONVRT 

H. .‘  DTESZ . . Loads  set  size  and  pulldown  as  input  from  the  TTY. 

Also  sets. scaling  parameters  for  frame.  Exits  via  MDONEX. 
Called  via  MONTOR. 

I.  EBGET.  Converts  EBCDIC'  numeric  string,  length  of  which  ■ 
■is  specified  in  SETXYS,  to  decimal.  Numbers  are  accessed 

from  magnetic  tape  via  GET.  Converted  number  is  in  AC  upon 
exit  to  calling  routine.  Calling  sequence.,  where  N = 
length  of  numeric  string: 

LAM  N 

DAC  SETXYS 
JMS  MVCOM 

J.  ENDLN.  Checks  command  word  for  JUMP;  if  found,  advances  to 
next  frame  via  NEXFRM  and  gets  next  DTE  data  word.  If 

not  found,  data  is  ignored  and  next  DTE  data  word  is  access*.  _ r 
Control  is  transferred  to  GETCOM.  Calling  sequence:  JMS 

ENDLN  - 

K.  GETBLK.  Accesses  32  bits  of  data  from  magnetic  tape  via 

MTBYTE.  IJsed  to  read  record  block  and  mask  off  block 
discriptor  word  (BDW)  . Exits  to  calling- routine..  Calling 
sequence:  JMS  GETBLK 

L.  GETCOM.  For  36-bit  DTE  words,  "bit  buckets"  four-bit  pad, 
•calls  KYBLIS  for  operator  interrupt  processing,  and  trans- 
fers control  to  GETOP.  GETCOM  is  called  for  all  DTE  data 
word  decodes.  Calling  sequence:  JMP  GETCOM 

M.  GETCR.  Determines  if  36-bit  DTE  word  is  a typewriter  or 
start  print  word.  Control  is  transferred  to  TYPSW  or  SETCR, 
respectively.  Calling  sequence:  JMP  GETCR 
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N.  GETOP . Gets  four-bit  op  code  and  determines  if  data  word 

is  a command  or  vector  word.  If  neither,  control  is  trans- 
ferred to  GETCR.  If  COMMAND,  control  is  transferred  to 
ENDLN.  Calling  sequence:  JMP  GETOP 

O.  GETSEG . Gets  logical  record  segment  from  tape  input  area. 

Determines  segment  control  code,  segment  length,  and 
carriage  control  from  segment  descriptor  word  (SDW) . If 
segment  length  is  two  or  less,  control  is  returned  to 
GETSEG+1  for  next  logical  record  segment.  If  segment  con- 
trol code  is  0 or  1,  which  specifies  COM  control  record, 
CCNTRL  is  called  for  processing  of  the  COM  control  record. 
Upon  return  from  CCNTRL,  control  is  transferred  to  calling 
routine.  Calling  sequence:  JMS  GETSEG 

P.  IGNORE . Remains  in  loop  ignoring  data  via  BITCNT  until 
next  COM  control  record  or  logical  segment  is  read,  with 
control  being  transferred  to  the  applicable  routine  by 
BITCNT. 

Q.  IGN0R1 . Sets  applicable • switches  to  remain  within  GETSEG 
routine  until  DTE  data  has  been  accessed. 

R.  MAP . Sets  XHD,  YHD,  XTL  and  YTL  DTE  vector  coordinates  ' 

scaled  to  FR80  units.  Coordinates  are  centered  in  16K  * 16K 
frame.  Calling  sequence,  with  XHD,  YHD,  XTL,  YTL  containing 
DTE  vector  coordinates  (return  to  calling  routine  with  XHD, 
YHD,  XTL,  YTL  containing  FR80  coordinates):  MAP 

S.  MVCOM.  Transfers  .COM  control  data,  as  specified  in  the  S 

or  T record,  into  buffer  TITARE.  Data  is  accessed  from 
tape  buffer  one  byte  per  access,  via  GET.  Calling  sequence, 
with  AC  containing  first  titling  character:  JMS  MVCOM 

T.  NEWSEG . Reads  in  new  logical  segment;  gets  bits  requested 

from  old  and  new  segment  and  returns  to  calling  routine 
with  data  in  AC.  Calling  sequence:  JMP  NEWSEG 

U.  NEXFRM.  Sets  titling  intensity,  advances  to  next  frame, 

resets  intensity,  and  exits  to  calling  routine.  Calling 
sequence:  NEXFRM 
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V.  NOINDX.  Entered  with  XHD  and  YHD  containing  DTE  character 
coordinates  and  CHTEM  containing  eight-bit  DTE  character. 
Scales  coordinates  to  FR80  units,  sets  X and  Y DAC’s,  out- 
puts - character  , and  transfers  control  to  GETCOM.  Calling 

• sequence:  JMP  NOINDX 

W.  RESET.  Sets  switches  specifying  COM  control;  sets  return 

address  in  GETSEG  and  BITCNT  to  return  to  calling  routine. 
Calling  sequence:  JMS  RESET 

X.  RESTOR.  Restores  BITCNT  and  GETSEG  parameters  to  condition 

previous  to  COM  control  loop.  Calling  sequence:  RESTOR 

Y.  RETRN.  Saves  return  address  from  BITCNT  for  original  call; 

this  is  done  prior  to  COM  control  processing.  Calling 
sequence:  JMS  RETRN 

Z.  SAVADD . Saves  BITCNT  and  GETSEG  return  addresses  prior  to 

COM  control  loop.  Calling  sequence:  SAVADD 

AA.  SCAL.  Entered  with  AC  containing  DTE  coordinate.  Exits 
to  calling  routine  with  AC  containing  coordinate  -in  FR80 
units.  Calling  sequence,  where-  1 L N <=  1023  : 

LAC  N 
SCAL 

BB.  SEPREC.  Entered  with  AC  containing  first  character  of  S 

record.  Calls  MVCOM,  calls  FICTAP  for  control  record  pro- 
cessing. Sets  CH11SW  and  SEGSW  for  control  record  skip  via 
BITCNT.  Exits  to  IGNORE.  Calling  sequence:  JMP  SEPREC 

CC.  SETCR.  Sets  TYPSW  for  TYPEWRITER  word  processing,  converts 
DTE  character  size  to  appropriate  FR80  size,  and  DTE 
character  deltas  to  FR80  units  (‘CHDELX,  CHDELT) . Sets 
deltas  based  on  rotation  via  ROTTST  and  SETPLS.  Accesses 
starting  line  coordinates  by  call  to  GET  storing  X in  XHD 
and-  Y in  YHD.  Exits  via  NOINDX.  Calling  sequence:-  JMP 
SETCR 
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DD.  TITREC . Moves  title  data  into  TITARE  via  MVCOM,  calls 

FICTAP  for  title  processing.  Transfers  control  to  IGNORE. 
Calling  sequence:  JMP  TITREC 

EE.  TYPLP . Processes  DTE  special  characters  NULL,  CR,  and  MR; 
if  these  are  not  present,  outputs  as  print  character  via 
CHROUT  until  CNTR  (character  counter  -4  for  36)  is  exhausted 
Entered  either  through  TYPSW  or  JMP  TYPLP.  Exits  to  GETCOM. 

2. 5. 3. 3 Constants  and  Variables 

A.  Internal 


1.  BAT ARE . Table  for  the  BEGIN  and  END  title  fiche. 

2.  BEGN.  Message  BEGIN  output  on  ID  fiche. 

3.  BITNSV.  Temporary  save  location  of  number  of  bits 
requested  by  GET  macro  in  SAVADD  and  RESTOR  routines. 

4.  B I TNUM . Contains  number  of  bits  requested  by  GET  macro. 

5.  BITSVAD.  Temporary  save  location  of  return  address 
from  GET  call. 


6.  BTABL.  Table  used  for  conversion  of  ASCII  characters 
to  EBCDIC. 

7.  BTCT.  Variable  used  as  counter  in  BATNO  subroutine. 

8.  BTLN.  Constant  length  of  ID  title. 

9.  CHTEM.  Cell  containing  DTE  character  accessed  from 
START  PRINT  word. 

10.  CH11SW.  Switch  used  for  entry  and  exit  into  COM  con- 
trol processing.  Set  to  JMS  RESET  after  S COM  record, 
and  NOP  upon  completion  of  second  COM  control  record 
processing . 

11.  CMTAP . Buffer  containing  COM  tape  number  as  input  from 
TTY.  Output  to  ID  fiche. 
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12..  CNTR.  Counter  containing  numberof  characters.  ;per  DTE 
typewriter  word. 

13. '  CTMES . ' Message  ENTER  COM  TAPE,  output  to  teletype- . 

when  accepting  COM  tape  number  for  ID  fiche. 

14.  DFRSZ . Constant  containing  frame  size  in  FR80  units 
(13522  for  105  mm) . 

15.  DTESIZ.  Temporary  cell  containing  DTE  character  size 
(0-7)  accessed  from  start  print  word. 

16.  DTETAB . Table  containing  DTE  character  codes,  two 
characters  per  word. 

17 . DTXTAB . Table  containing  character  spacing  values  in 
DTE  units  for  eight-character  sizes, 

1-8.  DTYTAB . Table  containing  line  feed  values  in  DTE  units 
for  eight-character  sizes. 

19.  ENEND.  Message  END',  output  on  trailing  ID  fiche. 

’20.  GETS GAD.  Temporary  save  location  of  GETSEG  routine 
return  address. 

21.  MB I TNM . Variable  containing  number  of  bits  requested 
by  GET  macro  in  BITCNT  routine. 

22.  MBITSV.  Temporary  save  location  of  number' of  bits 
requested.  ^Referenced  in  SAVADD  and  RESTOR. 

23. -  NEWSGB . Variable  containing  n bits  (14-  n 4 i8)  of  data 

from  next  record  segment. 

24.  NEWSGC-.  Variable  containing  number  of  bits  required 
from  next  record  segment  to  satisfy  GET  macro. 

23.  OLDSGB . Variable  containing  n bits  (14  n 4 1-8)  of  data 
remaining  in  current  record  segment. 
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26.  OLDSGC.  Variable  containing  number  of  bits  remaining 
in  current  record  segment. 

27.  RETADD . Cell  containing  BITCNT  return  address  when 
processing  COM  control  records. 

.28.  RLE . Buffer  where  microfiche  roll  number  is  stored  for 
' ID  fiche. 

29. -  RLMES . Message  ENTER  ROLL,  output  to  teletype  when 

accepting  roll  number. 

30.  SEGCNT.  Counter  containing  number  of  bits  in  current 
record  segment. 

31.  SEGSW.  Switch  used  to  reset  BITCNT  return  address  upon 
completion  of  COM  control  processing. 

32.  SRMES . ' Message  ENTER  SOURCE  TAPE,  output  to  teletype 
when  accepting  source  tape  number-  for  ID  fiche,. 

33.  SRTAP . Buffer  containing  source  tape  number  for  ID 
fiche. 

34*  SVIND.  Address  of  teletype  buffer  for  input  information. 

35.  SZTAB . Table  containing  character  heights  in  DTE  units 
for  eight-character  sizes. 

36.  TTINFO . Buffer  where  BEGIN  or  END  is  stored  for  ID 
fiche . 

37.  TITINT.  Constant . delineating  output  light  intensity 
for  titling. 

38.  XHD . Contains  starting  X coordinate  of  DTE  vector  as 
accessed  from  DTE  vector  word. 

39.  XOFF . Starting  X or  left-side  margin  of  DTE  image 
in  FR80  raster  units. 
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40.  ' 

XSIGN . 

Sign  of  X vector  as  defined  by 

36-bit  DTE 

vector 

word. 

41.  '• 

XTL. 

Contains  end  X coordinate  of  DTE 

vector  as 

accessed  from  DTE  vector  word. 

42. 

YHD, 

word. 

Contains  starting  Y coordinates 

of  DTE  vector  . 

43. 

YOFF . 

Starting  Y .or  top  margin  of  DTE 

image  in  FR80 

‘ 

raster 

units . 

44. 

YSGN. 

Sign  of  Y vector  as  defined  by 

36-bit  DTE 

.vector 

word. 

45. 

Y-TjL. 

Contains  end  Y coordinate  of  DTE 

vector  as 

accessed  from  DTE  vector  word. 


B..  External 


1. 
'2. 
3. 
4'. 
'5. 
6 . 
7. 


CHDELX.  Word  location  reserved  for  FR80  character 
delta. 

CHDELY . Word  location  reserved  for  FR80  character 
delta. 

CHRSIZ . Word  location  reserved  for  FR80  character 
size. 

CURBUF.  Ce-ll  used  for  current  magnetic  tape  buffe 
address  (one  of  two  magnetic  tape  buffers) . 

•EXPND.  Location  used  to  define  end  of  executable 
code . 

FCSUB . One-word  cell  used  to  either  decrease  or  ii 
crease  margin  between  fiche. ’ 

FCTTSW.  Switch  used  to  control  title  extraction  f: 
tape  or  teletype. 
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8.  FICTB.  Address  of  fiche  title  table,  i.e.,  titling 
buffer  area. 

9.  FLSHND.  Defines  start  of  form  flash  executable  code. 

10.  FRAMNM.  One-word  counter  containing  number  of  frames 
filmed. 

11.  MAXTRW . Constant  -used  for  multiple  fiche  title  rows 
(always  zero  for  DTE) . 

12.  MTTARE . Contains  teletype  buffer  address. 

13.  NEXBUF.  Cell  used  for  next  magnetic  tape  buffer 
address  (one  of  two  magnetic  tape  buffers). 

14.  PBUFPT.  Location  used  to  define  start  of  form  flash 
communication  area. 

■? 

•15.  PICNUM.  One-word  counter  containing  number  of. images 
produced . 

16.  RECPIN.  Word  location  reserved  for  FR80  light  intensity 
value. 

17.  SCSIZE . Maximum  available  FR80  raster  units  (16384)-. 

18.  SVROT . One-word  save  location  containing  current 
rotation  delineator. 

19.  TITARE.  Address  of  fiche  titling  buffer. 

20.  TPOINT.  Contains  address  of  next  available  word- in 
TITARE. 

21.  VHEADX . Word  reserved  for  setting  of  starting  X vector 
coordinate. 

22.  VHEADY . Word  reserved  for  setting  of  starting  Y vector 
coordinate . 
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23.  VTAILX.  Word  reserved  for  setting  of  ending  X vector 
coordinate. 

24.  VTAILY . Word  reserved  for  setting  of  ending  Y vector 
coordinate . 

2. 5. 3. 4 Flow  Charts.  See  following  pages. 
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2.6  COMA  PDP  11/45  PRINT  PROCESSOR  FOR  16  mm  FILM  (PDP16) 

2.6.1  Background. 

A.  Author.  V.  Pote,  Aeronutronic  Ford  Corp. 

B.  Intent . The  requirements  for  these  programs  are  specified 
in  SISO- generated  document  SH-25073.  PDP16  is  requested' 
when  a PDP  11/45  FORTRAN  generated  print  tape  has  been  sub- 
mitted for  data  to  be  output  to  16  mm  film. 

C.  Program  History 

1.  Production  Tape  Date.  17  September  1973 

2.  Author.  V.  Pote 

3.  Authorization.  EO-165F 

4.  Test  Cases.  Test  tape  specification  SH-25713 

5.  Revis ions . Reference  Appendix  B,  paragraph  B-6. 

2 . 6 ■.  2 Introduction 

2.6. 2.1  Hardware  Requirements 
© FR80  with  12K  memory 

© 9 -track  tape  unit 


© 16  mm  unsprocketed  camera. 


2.6. 2. 2  Software  Requirements.  The  following  files,  found  it 
I.I.I.’s  'SYM  Directory,  are  required: 


II 1109  I I 1196 
1 1 1 1 6 6 III164 
111,185  II 1163 


II 1147  I I II 61  GO 

III162 

III161 
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2. 6.2. 3 Assembly  Parameters 

A.  9“ TRACK.  I£  1,  indicates  data  will  be  coming  from  a 9-track 
tape  drive. 

B.  MUMBLE . If  1,  defines  system  configuration  for  output  to 
the  teletype. 

C.  -FONT.  If  0,  defines  standard  1. 1. 1.  character  font  ■'111164. • 

D.  LOCASE . If  1,  defines,  lower  case  characters  in  the  charac- 
ter set. 

E.  IIISET.  If  1,  assembles  a dispatch  tube  for  I. I. I.  stand- 
ard character  codes. 

F.  TWOBUF.  If  1,  defines  two  magnetic  tape  buffers  for  higher 
throughput. 

G.  EOFP.  If  1,  defines  end-of-file  processing  code  is  to  be 
inserted. 

H.  BIGBUF.  If  0,  defines  maximum  amount  of  features  with 
minimum  buffer  space. 

I.  MTSIZE . Magnetic  tape  buffer  size  (=  1001). 

J.  MTTSIZ.  Teletype  buffer  size  (=  210) . 

K.  FTYPE . Camera  indicator  (=  16  mm) . 

L.  MANY UP.  If  1,  defines  code  for  multiple  images  per  frame 
for  105  mm  microfiche. 

M.  CAMNUM . If  2,  indicates  the  16  mm  unsprocketed  camera  is 
to  be  used. 
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2.6. 2.4  Operator  Commands.  The  following  commands  'shall  be  used 
for  the  PDP16  execution. 


PDP16$J 

^MONITOR  (Returned  by  FR8  0) 

GO/J, 

XXXXXXXXX  ENTER  TAPE  NBR 

(Operator  enters  tape  No.  after  this  MSS 

END  JOB Ijf  (when  EOF  has  been  returned) 

2.6.3  Analysis 


2 . 6 .. 3 . 1 Major  Control  System 

A.  Description.  The  mainline  code  for  this  processor  begins 
'at  BEGIN.  The  program  first  initializes  all  storage  used 
by  the  program  in  order  to  make  the  program  reusable.  All 
flags  and  instruction  switches  are  set  to  their  initial 
values.  Next,  a FRSPIC  is  done  to  initialize  the  camera, 
and  CURBUF,  NEXBUF  and  PBUFSZ  are-  initialized  to  current 
buffer  address,  alternate  buffer  address,  and  buffer  size, 
respectively.  Then' control  is  passed  to  the  III  routine 
MTRINI  to  initialize  the  tape  handler.  Upon  return-,  con- 
trol is  passed  to  the  internal  subroutine,  JSEP,  to  inter- 
pret the  tape  label  and  place  it  on  film  as  the  job'  sepa- 
rator. JSEP  first  utilizes  the  internal  subroutine  ZRD50 
to  convert  each  of  the  first  three  words  in  the' 14-byte 
header  from  RAD50  format  to  teletype  ASCII,  and  then  goes 
to  an  internal  subroutine,  NXTPG,  which  effects  a NEXPIC 
and  advances  the  film  one  frame.  The  III  subroutine  DRWCHR 
is  utilized  to  draw,  the  nine  characters,  on  the  film,  in  the 
case  of  16  mm  filming. 

After  the  job  separator  has  been  processed,  the  main  loop 
of  the- program  is  entered  at  GETCH.  First  the  end-of- 
buffer  codes  are  inserted  at  the  end  of  the  primary  and 
secondary  buffers;  then  the  interrupt  condition  is  enabled 
in  VCHTAB  to  halt  on  the  characters  for  end-of-buf fer  or 
carriage  return.  An  initial  dispatch  address  is  cal- 
culated and  the  high-speed  character  generator  is 
invoked  by  calling  the  subroutine  QHSGO.  Upon  return 


. ® POOR’ 
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from  QHSGO,  the  character  code  which  caused  the  inter- 
rupt together  with  the  next  two  character  codes  are 
extracted  from  the  input  tape  buffer  by  calling  subroutine 
EXDSP.  If  sense  switch  12  is  up  and  sense  switch  13  has 
changed  from  the  previous  position,  the  high-speed  charac- 
ter generator  is  reinvoked  to  display  the  current  line  be- 
ing generated.  Otherwise,  processing  continues  upon  the 
three  codes  which  caused  the  interrupt. 

First,  the  carriage  control  code  (the  third  character)  is 
checked  for  validity.  If  the  code  is  invalid,  a search  is 
made  for  the  next  carriage  return  code  and  thus  a new  car- 
riage control  code.  A single-space  carriage  control  code 
causes  a carriage  return  line  feed  to  be  executed.  A 
double-space  carriage  control  code  causes  a double  carriage 
return/line  feed  to  be  executed.  A page  eject  carriage  con 
trol  code  causes  a double  carriage  return/line  feed  to  be 
executed,  and  subroutine  NXTPC  to  be  called  to  advance  the 
film  by  one  frame.  The  X and  Y coordinates  are  then  re- 
calculated. 

After  the  appropriate  action  has  been  taken  based  on  the 
carriage  control  code,  a new  dispatch  address  is  calculated 
and  the  program  returns  to  GETCH  to  resume  the  high-speed 
character  generator. 

B . Input/Output 

1.  Input.  Data  will  be  input  from  a 9- track  tape  drive 
in  variable  length  lines  and  physical  record  size  of 
512, -bytes.  The  tape  will  contain  a 14-byte  header 
record  containing  in  the  first  three  words  the  table 
label  in  RAD50  format. 

2.  Output ♦ Output  of  data  is  to  16  mm  film.  Page  size 
is  64  lines  maximum;  line  length  is  132  lines  maximum. 

3.  Error  Message  Output.  ILLEGAL  FORM  is  output  when  a 
form  number  greater  than  four  has  been  requested. 
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C.  Linkages 


1. 


External 


Routine 

Program 

Routine 

Program 

MTRINI 

III163 

GETT 

III163 

NEXPIC 

III166 

DRWVEC 

I I I 162 

SETPLS 

III166 

SETXYX 

III166 

KYBLIS 

III166 

. SETHPS 

III162 

FRSPIC 

1 1 1 1 6 6 

SETTLS 

1 1 1 16  2 

DRWCHR 

III162 

MTBYTE 

III163 

2.  Internal  Routines. 


FLMOUT 

NXTPC 

PLSET 


JSEP 

CUTMAK 

ZRD50 


GETC 

PUTC 

TELKBR 


TELKBW 

OUTTY 

INTTY 


QHSGO 

EXDSP 

SETVCH 


JSEP2' 

PLCE 


•2 . 6 . 3 . 2 Subroutines 

A.  FLMOUT.  Advances  film  10  frames  on  end-of-file  and  auto- 

matically outputs  the  job  separator  information.  Calling 
sequence:  JMS  FLMOUT  (in  III163). 

B.  NXTPC.  There  are  no  parameters  passed  to  NXTPC.  NXTPC- 
will  advance  the  film  to  a new  frame  and  reset  the  X and 
Y coordinates  for  both  forms  and  text  to  the  top  of  the 
page.  Before  the  advance,  if  forms  were  requested.,  NXTPC 
will  call  PPAGE  to  flash  the  form.  Calling  sequence: 

JMS  NXTPC. 

C.  PLSET.  Sets  the  delta  X and  Y,  the ' intensity  and  the  spot 

size.,  and  calls  SETPLS  to  initialize  the  .DAC  registers. 
Calling  sequence:  JMS  PLSET. 

-c*" 

D.  JSEP . Reads  the  header  label  from  the  tape  and  decodes  it 

from  RAD 50  format  to  ASCII.  Using  JSEP2,  it  then  advances 
the  film  and  if  16  mm  film  is  being  used,  draws  the  nine 
ASCII  characters  on  the  film  in  eyeball-sized  letters. 
Calling  sequence:  JMS  JSEP. 
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E.  CUTMAK . Outputs  cutmarks.  Calling  sequence:  JMS  CUTMAK. 

F.  ZRD50 . Converts  the  contents  of  the  AC  from  RAD50  to  three 

seven-bit  ASCII  characters.  Calling  sequence:  JMS  ZRD50. 

G.  GETC.  Obtains  a character  from  a specified  line  buffer  in 
a specified  position  and  places  the  character  in  the  AC. 

The  cell,  LI32AD,  should  be  loaded  with  the  address  of  the 
line  buffer  and  CHPOS  should  be  loaded  with  the  character 
position  upon  entry.  Calling  sequence:  JMS  GETC. 

H.  PUTC . Places  the  character  contained  in  the  AC  into  a 
specified  line  buffer  at  a specified  character  position. 
LI32AD  should  contain  the  line  buffer  address  and  CHPOS 
should  contain  the  character  position.  Calling'  sequence : 
JMS  PUTC. 

I.  TELKBR.  Reads  a character  from  the  teletype  and  places  it 

in  the  AC.  Calling  sequence:  JMS  TELKBR. 

J.  TELKBW.  Writes  the  character  contained  in  the  AC  to  the 

teletype.  Calling  sequence:  JMS  TELKBW. 

K.  qutttY.  Outputs  a line  to  the  teleprinter.  • The  line  buf- 
fer address  should  be  loaded  into  the  AC  before  entry,  and 
the  line  buffer  should  be  formatted  in  standard  9-track 

.buffer  format.  The  octal  code  377g  denotes  the  end  of  the 
buffer.  Calling  sequence:  JMS  OUTTTY. 

L.  INTTY.  Inputs  a line  from  the  teletype.  Upon  entry,  the 
AC  should  contain  the  line  buffer  address.  The  line  buffer 
will  be  formatted  in  standard  9-track  buffer  format.  A 
carriage  return  will  terminate  the  input.  Calling  sequence 
JMS  INTTY. 

M.  QHSGO.  Invokes  high-speed  character  generator  from  speci- 

fied dispatch  address  and  returns  halt  interrupt  informa- 
tion; ' Calling  sequence:  JMS  QHSGO. 

N.  EXDSP . Extracts  character  code  from  specified  buffer  posi- 

tion. The  buffer  position  is  specified  in  the  AC  in  the 
form  of  a dispatch  address."  Calling  sequence.:  JMS  EXDSP. 
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O.  SETVCH  . Sets  high-order  bit  of  the  character  positions 
indicated  in  the  specified  list.  Calling  sequence: 

JMS  SETVCH. 

P.  JSEP2 . Advances  the  film  and  draws  nine  ASCII  characters 
on  the  film  in  eyeball-sized  letters.  Calling  sequence: 
JMS  JSEP2 . 

Q*  PLCE . Places. last  three  digits  of  the  tape  number  in  the 
output.  Calling  sequence:  JMS  PLCE. 

2.6. 3. 3 Constants  and  Variables 

A.  Internal 


1*  AD VI . When  set,  indicates  to  subroutine  FLMOUT  to 
advance  film. 

2.  • ALPHX.  Text  of  initial  X DAC  register. 

3.  ALPHY.  Text  of  initial  Y DAC  register. 

4.  CHPOS.  Contains  the  character  position  of  the  line' 
buffer. 


5. 


6. 

i: 

8. 

9. 


10. 


11. 


CHRCNT.  Location  containing  the  number  of  characters 
that  are  to  be  used  in  the  index  frame. 

CLDELX.  Text  X delta  in  scope  points. 

CLDELY.  Text  Y delta  in  scope  points. 

CLRSIZ . Text  character  size. 

CURBUF . A word  containing  the  address  of  the  buffer 
currently  being  used. 

ERF LAG.  A flag  that  when  set  to  zero  indicates  that 
the  Error  Form  Flag  is  to  be  checked. 

ERFMFL . Error  Form  Flag. 

REPRODUCIBILITY  OF  THE 
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12.  FLASSW.  A flag  used  to  determine  if  a form  is  to  be 
flashed. 

13.  FOLFTX.  Location  containing  the  beginning  raster  point 
(X  coordinate)  for  a form. 

14.  FOTOPY.  Location  containing  the  beginning  raster  point 
(Y  coordinate)  for  a form. 

15.  FRMINP . Contains  address  of  first  form. 

16.  FRMPTR.  Address  of  form  to  be  flashed. 

17.  FRMTAB . Six-word  table  with  each  word  giving  the  be- 
ginning address  of  a form. 

18.  IFLG . First-time  flag  for  subroutine  FLMOUT. 

19.  LEFTXX.  Location  containing  the  beginning  X coordinate 
for  a line  of  print. 

20.  LI32AD.  Contains  the  address  of  the  line  buffer. 

21.  LINCNT.  A word  containing  the  number  of  lines  that 
have  been  output. 

22.  LNBUF.  Principal  line  buffer  used  in  formatting  text 
data. 

23.  NEWTOP . Location  containing  the  Y coordinate  of  the 
line  to  be  output. 

24*  NEXBUF.  Word  containing  the  address  of  the  next  buf- 
fer to  be  used. 

v 

t 

25.  REM.  Location  containing  the  remainder  which  indicates 
which  byte  of  the  word  is  to  be  used. 

26.  S AVI RM . Temporary  location, 

27.  SPCNUM.  Location  containing  the  raster  size  for  the 
X coordinate. 
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28.  'STOCSW.  Flag  used  to  initialize  the  indexing  routine. 

29.  TEMP.  Temporary  rese.rved  location  used  as  a scratch 
work  area. 

30.  TOPYY.  Location  containing  the  beginning  raster  point 

(Y  coordinate)  for  all  numbers  which  have  been  processed. 

•31.  VCHAR.  Location  used  to  store  digits  temporarily  until 
all  numbers  have  been  processed. 

32.  XINDX.  Word  containing  the  character  number  on  which 
the  indexing  is  to  start. 

33.  Y1NDX.  Location  containing  the  line  number  that  is  to 
be  used  in  the  index  frame. 

B.  External 

1.  CHDELX . Word  used  to  set  the  delta  X. 

2.  CHDELY.  Word  used  to  set  the  delta  Y. 

3.  CHRSIZ . Contains  the  character  size,. 

4.  FRMNUM.  Word  containing  the  form  number  currently 
being  used. 

5.  IFLASW.  Flag  used  to  determine  if  the  index  form  is 
to  be  flashed. 

6.  INSXjCW . Flag  used  to  determine  if  indexing  has  been 
requested. 

7. , MAXTRW . When  zero,  indicates  the  T record  has  not  yet 
been  processed. 

8.  MTCNT . Word  containing  the  number  of  words  yet  to  be 
processed  from  one  buffer  (negative) . 

9.  MTPTR.  Word  containing  the  address  of  the  word  in  the 
buffer  to-be  processed  next. 
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10.  PBUFSZ . Word  containing  the  length  of  the  tape  buffers. 

11.  RECPIN. ' Contains  intensity  to  be  used. 

12.  RECSPT.  Contains  spot  size. 

2. 6. 3. 4 Flow  Charts.  See  following  pages. 
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2.7  COMA  PDP  11/45  PRINT  PROCESSOR  FOR  105  mm  FICHE  (PDP105) 

2.7.1  Background 

A.  Author.  V.  Pote,  Aeronutronic  Ford  Corp. 

B.  Intent.  The  requirements  for  these  programs  are  specified 
in  SISO-generat ed  document  SH-25073.  PDP15  is  requested 
when  a PDP  11/45  FORTRAN  generated  print  tape  has  been, 
submitted  for  data  to  be  output  to  105  mm  fiche.  - 

C.  Program  History 

1.  Production  Tape  Date.  17  September  1973 

2.  Author.  V.  Pote 

3.  Authorization.  EO-165F 

4.  Test  Cases.  Test  tape  specification  SH-25713 

5.  Revisions.  Reference  Appendix  B,  paragraph  B.7. 

2.7.2  Introduction 

2. 7. -2.1  Hardware  Requirements 
© FR80  with  12K  memory 
9 9-track  tape  unit 
© 105  mm  unsprocketed  camera. 

2. 7. 2. 2 Software-'*  Requirements  . The  following  files,  found  in 

III161  GO 
III166 
1 1 1 1 8 7 


I.I.I.'s  SYM  Directory,  are  required: 

III109  I I 1186  I I I 147 
1 1 1166  III164  1 1 1 1 6 2 
1 1 118  5 III163  1 1 116 1 
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2.7.2. 3 Assembly  Parameters 

A.  9 -TRACK.  If  I,  indicates  data  will  be  coming  from,  a 9-track 
: tape  drive. 

B.  MUMBLE . If  1,  defines  system  conf igurat ion  for  output  to 
the  teletype. 

C.  FONT.  If  0,  indicates  standard  1. 1. 1,  character  font/111164. 

D.  LOCASE.  If  1,  defines  lower  case  characters  in  the  char- 
acter set. 

E.  IIISET.,  If  1,  assembles  a dispatch  tube  for  I.I.I-.  stand- 
ard character  codes. 

F.  -TWOBUF.  If  1,  defines  two  magnetic  tape  buffers  for  higher 
throughput. 

G.  BIGBUF.  If  1,  defines  minimum  amount  of • features  with  maxi 
.mum  buffer  space. 

H.  MTSI ZE.  Magnetic  tape  buffer  size  (=  1001)-. 

I.  MTTSIZ . Teletype  buffer  size  O 210)  . 

J.  FTYPE . Camera  indicator  (=  105  mm). 

K.  MANYUP.'  If  1,  defines  code  for  multiple  images  per  frame 
for  105  mm  microfiche. 

L.  NOPISP . If/l,  indicates  that  monitor  is  not  to  bedisplaye< 

M.  CAMN-UM.  . If  9,  indicates  that  T05  mm  unsprocketed  camera 

is  to  be  used. 

N.  ALLOW.  If  600,  allows  forms  flash. 

O.  FINDEX.  If  1,  allows  Fiche  indexing. 
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2. 7.2.4  Operator  Commands.  The  following  commands  shall  be  used 
for  the  PDP105  execution. 

PDP1 05  $ J 

^MONITOR  (Returned  by  FR80) 

GO/)  • 

ENTER  TAPE  NBR  (Operator  enters  tape  No.  after  this  msg.) 

'ENTER  COM  'CONTROL  (Operator  enters  COM  CONTROL^  . If  only  a. J 
is  typed,  processing  continues) 

END  JOB/J  (When  EOF  has  been  reti,'w°'q'' 

2.7.3  Analys is 

2. 7. 3.1  Major  Control  Section 

A.  Description.  The  mainline  code  for  this  processor  begins 
at  BEGIN.  The  program  first  initializes  all  storage  use.d 
by  the  program  in  order  to  make  the  program  reusable.  All 
flags  and  instruction  switches  are  set  to  their  initial 
values.  Next,  FRSPIC  is  called  to  initialize  the  camera, 
and  CURBUF,  NEXBUF  and  PBU.FSZ  are  initialized  t.o  current 
buffer  address,  alternate  buffer  address,  and  buffer  size, 
respectively.  The  control  is  passed  to  the  III  routine' 
MTRINI  to-  initialize  the  tape  handler.  Upon  return,  con- 
trol is  passed  to  the  internal  subroutine  JSEP  to  interpret 
the  tape- label  and  place  it  on  film  as  the  job  separator. 
JSEP  first  utilizes  the  internal  subroutine  ZRD50  to  convert 
each  of  the  first  three  words  in  the  14-byte  header  from 
RAD50  format  to  teletype  ASCII.  Next,  JSEP  goes  to  internal 
subroutine  NXTPC  which  effects  a NEXPIC  and  advances  the 
film  one  frame. 

After  the  job  separator  has  been  processed,  the  main  loop 
of  the  program  is  entered  at  GETCH  to' read  one ' character 
at  a time,  using  the  GETT  macro.  If  the  character  read  is 
not  a- control  character,  the  program  stores  it  in  the  line 
buffer  which  is  the  buffer  used  by  the  high-speed  character 
generator  to  output  a line  to  film.  Control  is  then  re- 
turned to  GETCH  to-  read  the  next  character.  However,  if 
the  character  is  a control  character,  actions  depend  on 
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the  character.  If  it  is  a carriage  return  characte.-r,  and 
if  the  previous  character  is  a line  feed,  the  internal  sub- 
routine FLMOUT  is  called  to  output  the  contents  of  the  line 
buffer  to  film  utilizing  the  high-speed  character  generator. 
If  the  initial  character  is  a line  feed,  control  is  trans- 
ferred to  GETCH. 

The  first  character  in  each  line  is  interpreted  as  a 
FORTRAN  carriage  control  character.  If  it  is  a +,  control 
is  returned  to  GETCH,  indicating  that  the  current  line  buf- 
fer will  be  partially  overlayed  with  a new  line  before  plac- 
ing film.  If  it  is  not  a + and  the  previous  character  was 
a line  feed,  the  internal  subroutine  FLMOUT  is  called  t,o 
output  the  line  buffer  to  film.  If  the  carriage  control 
character  is  a 1,  the  indicator  ADV1  is  set  to  indicate  to 
FLMOUT  to  advance  a frame  after  output.  If  the  carriage 
control  character-  is  a 0,  then  (upon  return  from  FLMOUT) 
the  program  will  execute  a CRT,  PSTLL  combination  to  effect 
double  spacing.  Control  is  then  returned  to  GETCH' to  read 
the  next  character. 

FLMOUT  is  the  internal  subroutine  which  places  the  contents 
of  the  current  line  buffer  on  film.  The  first  time  FLMOUT 
is  entered,  a NEXPIC  is  executed  to  advance  the  film.  The 
subroutine,  ASCIIV,  is  called  which  utilizes  the  machine- 
level  high-speed  character  generator  to  output  the  line  to 
film.  Upon  return,  a CRT,  PSTLL  combination  is  executed 
-to  position  to  the  next  line  on  film.  The  line  count  is 
incremented  and  if  the  number  of  lines  exceeds  67,  or  if  the 
advance  indicator  ADVI  is  present,  the  film  is  advanced  to 
the  next  frame  and  the  line  counter  is  reset. 

Eachytime  FLMOUT  needs  to  advance  to  the  next  frame,  the 
internal  subroutine  NXTPC  is  called.  In  addition  to  ad- 
vancing the  film,  this  subroutine  ensures  that  the  required 
form  is  flashed  if  it  was  requested.  The  DAC  register  co- 
ordinates are  also  set  by  this  subroutine  after  the  advance 
for  both  the  forms  coordinates  and  the  text  coordinates. 
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B.  Input/Output 

1.  Input ..  Data  shall  be  input  from  a 9-track  tape  drive 
in  variable  length  lines  with  a physical  record  size 
of  512  bytes.  The  tape  will  contain  a 14-byte  header 
record  containing  in  the  first  three  words  the  table 

- label  in  RAD50  format. 

2.  Output.  Output"  of  data  is  to  105  mm  film.  Page  size 
is  64  lines  maximum;  line  length  is  132  lines  maximum. 

3.  Error  Message  Output.  ILLEGAL  FORM  is  output  .when' a 
form  number  greater  than  four  has  been  requested. 

C.  Linkages 

1 • External 


Routine 

Program 

Rout ine 

Progra 

MTRIWI 

1 1 1 1 6 3 

DRWVEC 

IH162 

NEXPIC 

III166 

SETXYS 

III166 

SETPLS 

I I 1166 

SETHPS 

III162 

KYBLIS 

III166 

SETTLS 

III 162 

FRSP'IC 

1 1 1.1 66. 

MTBYTE 

III163 

DRWCHR 

III162 

MCRLF 

I I I 166 

GETT 

III163 

MMFSSG 

■ I II 166 

2.  Internal  Routines 


FLMOUT 

NXTPC 

PLSET 

JSEP. 

CUTMAK 

Z-RD50 

GETC 

P.UTC 

TELKBR 

TELKVW 
OUTTY  . 
INTTY 

QHSGO 

EXDSP 

•SETUCH 

JSEP2 

PLCE 

Subroutines 

A.  FLMOUT . Outputs  the  contents  of. the  line  buffer  onto  a 

line  of  microfilm  using  the  high-speed  character  generator. 
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When  FLMOUT  is  called,  LNBUF  should  contain  up  to  132  char- 
acters of  data  and  CHRFCT  should  contain  the  number  of  char- 
acters to  output.  If  IFLG  is  zero,  initialization  is  assumed 
and  a frame  advance  will  be  done. 

B.  NXTPC.  There  are  no  parameters  passed  to  NXTPC.  NXTPC  will 
• advance  the  film  to  a new  frame  and  reset  the  X and  Y co- 
ordinates for  both  forms  and  text  to  the  top  of  the  page. 
Before  the  advance  if  forms  were-  requested,  NXTPC  will  call 
PPAGE  to  flash  the  form. 

C.  PLSET.  Sets  the  delta  X and  Y,  the  intensity,  and  the  spot 
size,  and  calls  SETPLS  to  initialize  the  DAC  registers.' 

D.  ASCIIV.  Using  the  high-speed  character  generator,  the 
character  count  is  loaded  x^ith  the  complement  of  the  AC, 
the  Character  Table  address  is  loaded  \tfith  VCHTAB  reflect- 
ing the  desired  film  font,  and  the  initial  byte  address  is 
loaded  with  the  address  of  the  line  buffer.  Then  a HSGO 
command  is  given  to  output  the  line  to  film. 

E.  JSEP.  Reads  the  header  label  from  the  tape,  decodes  it 
from  RAD50  format  to  ASCII,  advances  the  film,  and  if  16 

, mm  film  is  being  used,  draws  the  nine  ASCII  characters  on 
the  film  in  eyeball-sized  letters. 

F.  CUTMAK.  Outputs  cut  marks. 

G.  ZRD50.  Converts  the  contents  of  the  AC  from  RAD50  to  three 
seven-bit  ASCII  characters. 

H.  GETC.  Obtains  a character  from  a specified  line  buffer  in 
a specified  position  and  places  the  character  in  the  AC. 

The  -cell  L132AD  should  be  loaded  with  the  address  of  the 
line  buffer  and  CHPOS  should  be  loaded  with  the  character 
position. upon  entry. 

I-.-  PUTC.  Places  the  character  contained  in  the  AC  into  a 
specified  line  buffer  at  a specified  character  position. 
L132AD  should  contain  the  line  buffer  address  and  CHPOS 
should’  contain  the  character  position. 
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J.  TELKBR.  Reads  a character  from  the  teletype  and  places  it 
in  the  AC. 

K.  TELKBW.  Writes  the  character  contained  in  the  AC  to  the 
teletype. 

L.  QUTTTY.  Outputs  a line  to  the  teleprinter.  The  line  buf- 
fer address  should  be  loaded  into  the  AC  before  entry,  and 
the  line  buffer  should  be  formatted  in  standard  9-track 
buffer  format.  The  octal  code  377g  denotes  the  end  of  the 
buffer. 

M.  INTTY.  Inputs  a line  from  the  teletype.  Upon  entry,  the 
AC  should  contain  the  line  buffer  address.  The  line  buffer 
will  be  formatted  in  standard  9- track  buffer  format.  A 
carriage  return  will  terminate  the  input. 

N_.  TTYCRC.  Reads  COM  control  information  from  teletype. 

0.  FRMREC.  Initializes  forms  parameters  (YINDX,  XINDX,  and 
• CHRNS)  . 

2 . 7 . 3 . 3 Constants  and  Variables 
A.  Internal 

1.  ADVI . When  set,  instructs  subroutine  FLMOUT  to  advance 
film. 

2.  ALPHX.  Initial  X DAC  register  text. 

3.  ALPHY..  Initial  Y DAC.  register  text. 

4.  CHPOS.  Contains  the  character  position  of  the  line 
buffer. 

5;  CHRCNT.  Location  containing  the  number  of  characters 
that  are  to  be  used  in  the  index  frame. 

6.  CLDELX.  Text  of  delta  X in  scope  points. 


2-442 


SISO-TR531 
Vol . II 


7.  CLDELY.  Text  of  delta  Y in  scope  points. 

8. '  CLRSIZ.  Text  of  character  size. 

CURBUF.  Word  containing  the  address  of  the' buffer 
currently  being  used. 

10.  ERF LAG.  A flag  that,  when  set  to  zero,  indicates  that 
the  Error  Form  Flag  is  to  be  checked. 

11.  ERFMFL . Error  Form  Flag. 

12.  FLAS5W.  A flag  in  the  program  used  to  determine  if  a 
form  is  to  be  flashed. 

13.  FOLFTX.  A location  containing  the  beginning  raster 
point  (X  coordinate)  for  a form. 

14.  FOTQPY.  A location  containing  the  beginning  raster 
point  (Y  coordinate)  for  a' form. 

15.  FRMINP . Contains  address  of  first  form. 

16.  FRMPTR.  Address  of  form  to  be  flashed. 

17.  FRMTAB . Six-word  table  with  each  word  giving  the  be- 
ginning address  of  a form. 

18.  I FLG . First-time  flag  for  subroutine  FLMOUT. 

19.  LEFTXX.  Location  containing  the  beginning  X coordi- 
nate for  a line  of  print. 

20.  L132AD.  Contains  the  address  of  the  line  buffer. 

21.  LINCNT.  Word  containing  the  number  of  lines  that  have 
been  output. 

22.  LNBUF.  Principal  line  buffer  used  in  formatting  text 
data. 


2-443 


SISO-TR531 
Vol.  II 


23.  NEW TOP . Location  containing  the  Y coordinate  of  the 
line  to  be  output. 

■24.  NEXBUF.  Word  containing  the  address  of  the  next  buffer 
to  be  used. 

25.  REM.  Location  containing  the  remainder  which  indicates 
which  byte  of  the  word  is  to  be  used. 

26.  SAVIRM.  Temporary  locations. 

27.  SPCNUM.  Location  containing  the  raster  size  for  the  X 
coordinate. 

28.  STOCSW.  Flag  used  to  initialize  the  indexing  routine. 

29.  TEMP.  Temporary  reserved  location  used  as  a scratch 
work  area. 

30.  TOPYY.  Location  containing  the  beginning  raster  point 
(Y  coordinate)  for  all. 

31.  VCHAR.  Location  used  to  store  digits  temporarily  until 
all  numbers  have  been  processed. 

32.  XINDX.  Word  containing  the  character  number  on  which 
the  indexing  is  to  start. 

33.  YINDX.  Location  containing  the  line  number  that  is 
to  be  used  in  the  index  frame. 

B.  . External 


1* 

chdelx:: 

Word  used  to 

set  the 

delta 

X. 

2. 

CHDELY. 

Word  used  to 

set  the 

delta 

Y. 

3. 

CHRNS . 

Number  of  characters 

in  the 

index 

4. 

CHRSIZ. 

Contains  the 

character  size 

• 
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5.  FRMNUM.  Word  containing  the  form  number  currently 
being  used. 

6.  IFLASW.  Flag  used  to  determine  if  the  index  form  is- 
to  be  flashed. 

7.  INXSSW . Flag  used  to  determine  if  indexing  has  been 
requested. 

8.  MAXTRW.  When  zero,  indicates  the  T record  has  not  yet 
been  processed. 

9.  MTCNT.  Word  containing  the  number  of  words  yet  to  be 
processed  from  one  buffer  [negative) . 

10.  MTPTR.  Word  containing  the  address  of  the  word  in  ' 
the  buffer  to  be  processed  next. 

11.  PBUFSZ . Word  containing  the  length  of  the  tape  buffers 

12.  RECPIN.  Contains  the  intensity  to  be  used. 

13.  RECSPT.  Contains  the  spot  size. 

14.  XINDX.  X index  value  for  indexing. 

15.  YINDX.  Y index  value  for  indexing. 

2. 7. 3.4  Flow  Charts.  See  following  pages. 
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2.8  COMA  HARVARD  COLLEGE  OBSERVATORY  SOLAR  EXPERIMENT  SO 5 5 GRAY- 
LEVEL  9 -TRACK  PROCESSOR  (SOS 5) 


Background 

Author.  F.  C.  Ashton,  Aeronutronic  Ford  Corp . 

Intent . S055  is  requested  when  a Harvard  College  Observa- 

tory Solar  Experiment  S055  gray-level  9-track  has  been  sub- 
mitted for  data  to  be  output  to  105  mm  fiche. 

Program  History 

1.  Production  Tape  Date.  ■ 28  November  1973 

2.  Author . F.  C.  Ashton 

3.  Authorization. . FR80  microfilm  system  task  A13 

4.  Test  Case.  Test  tape  requirement,  specification 
SH-25723. 

5.  Revisions . Reference  Appendix  B,  paragraph  B.8. 

2.8.2  Introduction 

2 . 8 . 2 . 1'  Hardware  Requirements 
® FR80  with  12K  memory 
© 9 -track  tape  unit 

9 105  mm  fiche  camera. 


A. 

B. 

C. 


2. 8. 2. 2 Software  Requirements.  me  iuiiuvvi.ng  uiei,  xeuuu  j..u 
I.I.I.'s  SYM  Directory,  are  required. 


II 1109 
III166 
I I I 1 64 


I I I 163 
II 1 18  5 
II I 147 


III162  III161  GO 

II 1161  II 1 1 8 6 

II 1 188 
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2. 8. 2. 3.  Assembly  Parameters.  The  assembly  parameters  in  III109 
should  be  set  for  the  proper  machine  configuration.  Assembly 
parameters  specific  to  S055  program  are  as  follows. 

A.  FONT.  If  0,  indicates  standard  1. 1. 1.  character  font. 

B.  TAPELB . If  1,-  indicates  standard  IBM  tape  labels. 

C-  NASA . 'If  1,  defines  special  characters  used  at  JSC." 

D.  EBCDIC . If  1,  indicates  standard  IBM  EBCDIC  character  sex. 
E-.  LOCASE.  If  1,  indicates  lower  case  character  set. 

F.  BIGBUF.  If  1,  allow.s  maximum  amount  of  features  with 
minimum  buffer  space. 

G.  MTSIZE.  Defines  length  of  system  tape  buffers  (513  words). 

H.  MTTSIZE.  Defines  length  of  teletype  buffer  (192  words). 

I.  MANYUP . Indicates  that  page  count  is  printed  with  frame 
count  when  the  accounting  information  is  output. to  the 
teletype. 

J.  FTYPE.  Indicates  the  fiche  camera, 

K.  DSKMON.  Indicates  that  disk  monitor  routine  to  be  assembled 

L.  NEXPAG.  Equivalent  to-  NEXPIC  routine. 

M.  NODISP.  Allows  assembly  without  monitor  display. 

N.  TITLE.  Allows  assembly  with  fiche  title. 
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2.8. 2.4  Operator  Commands 
* 

*TIME=44 . 0" 

*FRAME=0 

*G0 

*C0NTINUE 
*TITLE 
*END  JOB 
* CLEAR 
*REWIND 
*SKIP 

*TRY  AGAIN 
* STANDARD  LABELS 
*UN LABELLED 
*PITCH/MARGIN 

*SIZE  OF  TITLE=14500 ,10500 

*IMAGES/FICHE 

AFOCUS 

*LOAD=MONITO 
*+■  - ROTATED 
*■+'  - UPRIGHT 
* 

*DEBUG 
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2.8.3  Analysis 

2. 8. 3.1  Major  Control  Section 

A.  Description.  Control  is  given  to  the  S055  Program  at  the 
location  BEGIN.  The  tape  handler  is  initialized  by  calling 

. MTRINI , with  MTAREA  being  set  to  the  tape  buffer  address 
of  EXPND  and  PBUFSZ  set  to  700  words.  TPOINT,  the  pointer 
for  fiche  titles,  is  set  to  begin  at  the  title  table, 

FICTBS . 

The  program  makes  a call  to  the  TREC  Subroutine  to  process 
the  title  record.  A call  to  the  HDREC  Subroutine  processes 
three  header  lines  per  page  of  gray  data.  The  starting  X 
and  Y coordinates  for  gray-level  data  are  set  by  calling 
the  SETXYS  Subroutine.  The  number  of  records  per  gray- 
level  page,  LNCNT,  is  set  to  60. 

At  the  tag  REPLN,  the  parameter  for  the  Read  Subroutine,' 
RDWD,  and  the  Get  Subroutine,  GTIN,  are  initialized.  The 
address  for  the  line  identification  is  saved  off  by  a call 
to  SETAD.  The" subroutine  PESET  sets  spacing  for  gray-level 
pixel. 

At  the  tag  RSMLN,  the  number  of  input  pixels,  PEXCT,  is 
set  to  120  and  the  subroutine  GTIN  is  called  to  output  a 
pixel  line  to  film.  The  switch  GTSW  is  set  to  NOP  to  pick- 
up pixel  data  from  TABBUF  Table.  The  same  line  of  data  is 
repeated  nine  times.  The  eight  characters  of  line  ID  are 
output  by  calling  the  ECBCD  Subroutine.  Then  a line  of 
gray  pixel  is  output  again.  The  last  four  characters  of 
the  record  are  output. 

The  program  returns  to  tag  REPLN  until  60  lines  of  pixel 
data  hav^e  been  processed.  Then  the  fiche  is  advanced  one 
frame.  The  program  continues  this  loop  starting  at  the 
tag  HEADER  until  the  end-of-file  is  reached. 

B.  Input/Outputs 

1.  Input.  Data  shall  be  input  from  a 9-track  drive.  The 
tape  can  be  standard  IBM  label,  nonstandard  label  or 
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unlabeled.  The  data  shall  be  in  a fixed  length  record 
format  (blocked)  with  L320  eight-bit  bytes  per  block. 
Each  logical  record  shall  be  132  bytes  in  length.  A 
logical  record  contains  a title  record  or  gray-level 
record.  A title  record  has  HEX  D9  in  the  first  byte 
of  record.  Byte  2 contains  an  EBCDIC  T,  followed  by 
130  bytes  of  title  information.  A gray-level  record 
has  eight  bytes  of  EBCDIC  characters,  followed  by  120 
bytes  of  pixels  and  the  four. bytes  of  EBCDIC  characters. 

2.  Output.  Output  of  data  is  on  105  mm  fiche  (six  rows 
by  six  columns).  The  first  row  is  reserved  for  title 
information. 

3.  Message  Output.  CONTROL  ERROR  is  output  to  the  tele- 
type when  the  first  logical  record  on  the  file  is  not 
a title  record.  TITLE  ERROR  is  output  to  the  teletype 
when  the  title  record  is  in  error. 

C . Linkages 

1.  External 


►Routine 

Program 

FCFIN 

III166 

ADVAN 

FC7CLR 

III166 

ADVAN 

FICTAP 

II 1188 

FRSPIC 

III166 

ADVAN 

GETANM 

I III  61 

GETT 

III163 

KYBLIS 

III166 

MONOUX 

III166 

MONOUT 

I I 1166 

INVAR 

MTLAC ' 

I I 1166 

MTRINI 

I I I 163 

NEXPIC 

I I 11 60 

ADVAN 

MNBRIT 

III166 

PSTLL 

1 1 1166 

SETPLS 

III166 

SETXYS 

II 1166 
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2.  Internal 

Routines 

BUM 

GTIN 

PLSET 

SETAD 

DUMRD 

MVCOM 

RDWD 

TREC 

. ECBCD 

PESET 

RSRT 

2. 8. 3. 2 Subroutines 

A.  ' BUM.  Subtracts  1 from  read  pointer  address,  MTPTR,  and 

read  word  count,  MT-CNT.  -Calling  sequence:  JMS  BUM. 

B.  DUMRD . Sets  the  read  pointer  to  logical  records  and  calls 

MTLAC  when  a new,  physical  block  of  data  is  requried.  Call- 
ing sequence:  JMS  DUMRD. 

C.  ECBCD.  Outputs  a line  of  EBCDIC  characters  to  film.  Call- 
ing sequence  where  .the  first  LAC  is  the  address  of  the 
buffer  and  the  second  is  the  negative  number  of  character: 

LAC 

DAC  ADDSV 

LAC 

JMS  ECBCD 

D. .  GTIN*  Gets  a pixel  value  and  outputs  the  pixel  five  times 

to  'film.  When  the  GTSW  switch  is  set  to  a SKIP,  the  pixel 
value  is  picked  up  from,  the  tape  buffer,  complemented  and 
stored  in  the  table  TABBUF.  When  the  GTSW  switch  is  set 
to  NOP,,  the  pixel  is  picked  up  from  TABBUF.  Calling 
sequence : 

LAC  (SKP  OR  NOP) 

DAC  GTSW 
JMS  GTIN 

E.  HDREC . Calls  to  check  for  console  intervention-,  SETXYS  to 

set  the  starting  X and  Y coordinate,  and  PLSET  to  set  the 
spacing  for  ALPHA  MODE.  The  subroutine  outputs  three  lines 
of  header  information.  Calling  sequence:  JMS  HDREC. 
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F. .  MV  COM . Moves  the  title  record  from  the  tape  buffer  to  the 

title  buffer.  Calling  sequence:  JMS  MVCOM. 

G.  PESET.  Sets  the  spacing  and  spot  size  for  gray-level  out- 
put. CHDELX,  the  X delta  spacing,  is  set  to  10  and  CHDELY, 
the  Y delta  spacing,  is  set  to  10.  The  spot  size  is  set 

to  5.  Calling  sequence:  JMS  PESET. 

H.  PESET.  Sets  the  spacing  and  spot  size  for  alphanumeric 
data.  CHDELX,  the  X delta  spacing,  is  set  to  65  and 
CHDELY,  the  Y delta  spacing,  is  set  to  50.  The  character 
size  is  set  to  6 and  intensity  to  48.  Calling  sequence: 

JMS  PLSET. 

I.  RDRT.  Saves  the  parameters  for  the  tape  .handler . MTCNT 

is  the  word  count;  MTPTR  is  address  of  current  line  within 
the  buffer.  MTBYTW  contains  next  half-word  of  line.  MTBYTC 
is  number  of  bits  in  last  word.  Calling  sequence:  JMS  RDP1 

J.  RDWD . Saves  the  first  eight  characters  of  the  line  in 
temporary  buffer  and  stores  intensity  in  INT.  When  the 
routine  is  initialing  call  for  line,  RDSW1  is  set  to  skip 
and  first  eight  characters  saved.  Then  RDSW1  is  set  to 
NOP  for  access  of  the  gray-level  intensity.  Calling  se- 
quence, where  DAC  RDSW1  initially  calls  for  line  data: 

LAC  (SKP) 

DAC  RDSW1 
JMS  RDWD 

K.  RSRT.  Restores  parameter  for  tape  handler.  Calling 

sequence:  JMS  RSRT. 

L.  SETAD.  Loads  address  of  character  buffer  into  ADDSV. 

Calling  sequence:  JMS  SETAD. 

M.  TREC . Checks  first  logical  record  for  title  control 

record.  If  record  is  not  title  record,  the  program 
prints  out  CONTROL  ERROR  and  returns  to  MONITOR.  If 
record  is  title  record,  the  subroutine  processes  the 
title.  Calling  sequence:  JMS  TREC. 
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2. 8. 3. 3 Constants  and  Variables 
A.  External 

1.  CHDELX.  Variable  that  contains  X spacing. 

2.  CHDELY . -Variable  that  contains  Y spacing. 

3. "  CHRSIZ.  Variable  that  contains  character  size. 

4.  FCXCNT . Constant  that  contains  row  count  of  6. 

5.  FCYCNT.  Constant  that  contains  column  count  of  7. 

6.  FI'CMAR.  Constant  -100  fiche  margin. 

7.  FICFRM.  Constant  -64  fiche  pitch. 

8.  FICTB.  Buffer  where  title  information  is  stored. 

9.  MAXTRW.  Variable  used  by  III 185  title  routine.  The 
program  initializes  MAXTRW  to  zero. 

I, 0.  MTAREA . Constant  which  has  the  address  of  tape  buffe 

II.  MTBYTC . Variable  used  to  count  number  of  bits  used 

in  .1 1 1163 . 

12.  MTCNT . Variable  containing  number  of  words  remaining 
in  tape  buffer. 

13.  MTPTR.  Variable  which  is  pointer  into  tape  buffer. 

14.  MT-TARE . Constant  which  has  the  address  of  title 
buffer. 

■o 

15.  RECPIN.  Variable  to  hold  the  intensity., 

16.  RECSPT . Variable  to  hold  spot  size. 
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17.  XTITS.  Constant  starting  X coordinate  of  title 
(=  14500). 

18.  YTITS.  Constant  starting  Y coordinate  of  title 
(=  10500}. 

B.  Internal 

1.  ADDSV.  Variable  containing  address  of  character  buffer 
CHRBUF . 

2.  ALPHX.  Constant  of  5042;  starting  X coo.rdinate  of 
alphanumeric  characters. 

3.  ALPHY. ' Constant  of  10047;  starting  Y coordinate  of 
alphanumeric  characters . 

4.  CHDELX.  Constant  of  65;  X spacing  for  alphanumeric 
characters . 

5.  CHDELY . Constant  of  50;  Y spacing  for  alphanumeric 
characters . 

6.  CTLMES.  Message  CONTROL  ERROR  output  to  TTY  when 
first  record  on  tape  is  not  a COM  control  record. 

7.  INT.  Variable;  temporary  hold  for  intensity. 


8.  INTHD.  Variable;  transpos ed ‘ intensity . 

9.  INTOUT.  Constant  of  3;  title  intensi^’" 

10.  hNCNT.  Variable;^ line  count  per  fran 

11. -  ^ PEDELX.  Constant  of  10;  X spacing  for  gray- level 

pixel. 

12.  PEDELY . Constant  of  10;  Y spacing  for  gray-level 
pixel . 

13.  PEXX.  Constant  of  5446;  starting  X coordinate  for  first 
gray-level  pixel  of  image. 
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14.  PEXY..«  Constant  of  10097;  the  starting  Y ipoordinatej 
for- first  gray-level  pixel  of  image. 

15.  PEXCT.  Variable  used  to  hold  pixels  per  line. 

16.  PNTCT . , Variable  used  to  hold  number  of  pixel  repeats 

17.  RRLN.  Variable  to  hold  the  repeat  line  cpunt. 

s 

18.  SPSIZ.  Constant  of  5;  character  size  of  EBCDIC  char- 
acter. 

19.  TABBUF.  Variable  buffer  of  120  words  where  the  trans 
posed  intensities  are. stored. 

20.  TAB I NT.  Constant  table  of  64  words  used  tg  transpose 
intens ity . 

21.  TMPCT.  Variable  temporary  stora^f*  anH  rmint . 

2. 8. 3. 4 Flow  Charts . See  following  pages. 
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2.9  COMA  IBM-SYSOUT  PRINT  PROCESSOR  (I05PR,  16PRNT) 

2.9.1  Background 

A.  Author.  Information  International  Inc.,  12435  West  Olympic 
Boulevard,  Los  Angeles,  California,  90064. 

• Intent.  The  IBM  Sysout  Print  Processor  processes  magnetic 
tapes  from  the  IBM  360/75''S.  105PR  is  requested  when  105 

mm  fiche  is  desired,  and  16PRNT  is  requested  when  16  mm 
film  is  desired. 

Program  History 

1.  Production  Tape  Date.  14  January  1975. 

2 . Author . I . I . I . 

3.  Authorization.  EO-005F 

4.  Test  Cases.  AT  procedures  SB-09613A. 

5.  Revisions . Reference  Appendix  B,  paragraph  B.9. 


2.9.2  Introduction.  This  paragraph  describes  the  usage  and  design 
of  the  Informational  International.  IBM  Sysout  Print  Processor  Pro- 
gram. MONITOR  and  associated  I/O  driver  routines  are  described 
in  TR531 , Vol.  I. 

2. 9. 2.1  Hardware  Requirement: 

© FR80  with  12K  memory 

© 9-track  tape  unit 

9 16  mm>  or  10  5 mm  camera. 

• 2. 9. 2. 2 Software  Requirements 


II 1109 

1 1 1 1.6  6 ADVAN 

III164- 

II 1166 

II 1166  TABLE 

III164 

FILM 

III166 

INVAR 

III161 

III186 

III161 

GO 

III185 

II 1187 

III147 

III162  MACRO 

PRINTF 

COM 

III162 

III163 

FLOAD 
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2.9. 2. 3 Assembly  Parameters.  The  insert  file  III109  contains  the 
standard  assembly  parameters  for  machine  and  camera  configuration. 
Specific  assembly  parameters  for  the  IBM  Sysout  Print  Processor 
arenas  follows. 

A.  EBCDIC.  Defines  the  EBCDIC  character  set. 

B.  LOCASE.  Includes  the  lower  case  characters  in  the  charac- 
ter set. 

C.  TAPELB . Defines  code  to  provide  automatic  processing  of 
standard  labeled  tapes. 

D.  ALLOW . Defines  code  to  allow  form  loading  and  flashing. 

2.9. 2.4  Operator  Commands.  The  following  commands  are  available 
for  operator  use. 


*TIME 

*FRAME=0 

*G0 

* CONTINUE 
*END  JOB 
*MAKE  FILM=L 
* CLEAR 
* AD VANCE 
*REWIND 
*SKIP 

*TRY  AGAIN 
*STANDARD  LABELS 
^UNLABELLED 
*FORM 

*INDEX  FORM 
*ERROR  FORM 
*ROTATION=  0 
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2.9.3  Analysis 

2. 9. .3.1  Major  Control  Section 

A.  Description.  From  location  BEGIN,  PINIT  is  called  to  ini- 
tialize the  PLS  and  to  set  character  size,  rotation,  and 
deltas.  If  the  tape  is  labeled,  LB DATA  .is  called  to  pro- 
cess the  tape  label.  MTINIT  is  then  called  to  initialize 
the  magnetic  tape  routines,  allocate  the  buffer  areas,  and 
read  the  first  two  records  on  the  tape.  Various  program 
parameters  are  initialized  (housekeeping)  and  NEXPAG  is 
called  to  force  a page  eject.  Control  then  goes  to  GETLNI, 
where  magnetic  tape  records  are  checked  to  assure  that  they 
are  larger  than  two  bytes.  Smaller  records  are  ignored. 

If  the  record  size  is  longer  than  two  bytes,  the  line 
length  is  calculated  from  the  data,  and  PRSETX  is  called 
to  set  the  X DAC.  If  there  are  no  carriage  controls,  the 
program  jumps  to  GETLN4 , which  sets  up  for  the  print  loop. 
Otherwise,  the  carriage  controls  are  interpreted  by  GETHCD 
and  GETLN5.  SKTOCH  is  called  to  process  the  carriage  con- 
trol or  page  eject  and  control  goes  to  GETLN4  to  set  up  for 
the  print  loop.  The  print  loop  has  three  entrances,  and  th< 
one  used  is  determined  by  the  byte  position  of  the  first 
character  to  be  printed.  If  there  are  any  characters  to 
be  printed,  control  then  goes  to  the  print  loop;  if  not, 
the  next  line  is  processed.  The  print  loop  prints  the 
entire  line  with  the  high-speed  character  generator ,.  unless 
it  has  to  check  for  a logical  record  mark,  in  which  case  it 
must  print  a character  at  a time.  The  print  loop  exits 
when  the  character  count  is  exhausted  or  a record,  mark  is 
encountered.  Control  then  goes  to  GETLIN.  Time  is  given 
here  to  read  from  magnetic  tape,  and  any  fiche  control 
records  or  indexing  records  are  processed.  PKYBLS1  is 
called  to  check  for  an  operator  interrupt,  and  control 
goes  to  GETLNI..  The  program  continues  processing,  one 
line  at  a time^  until  an  end- of- file  mark  is  encountered. 

■ At  this  point  processing  is  terminated  and  control  is  re- 
turned to  the  teletype  monitor. 

B.  Input/Output . Operator  input  and  output  is  through  the 
teletype.  Data  input  is  via  9-track  magnetic  tape,  and 
output,  is  on  16  mm  or  105  mm  film. 


IMMOBILITY  OF  THE'. 
PAGE  IS  POOR. 
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C.  Linkages 

External 


Routine 

Program 

Calling  Sequenc 

PINIT 

I I 11 66 

JMS  PINIT 

MDOUT 

III166 

JMS  MDOUT 

MONANT 

I II 166 

JMS  MONANT 

ACCTG 

III166 

JMS  ACCTG 

ADVANN 

III166 

ADVAN 

ADVANN 

M-TTOUT 

III166 

JMS  MTTOUT 

MCRLF 

III166 

JMS  MCRLF 

NEXPIC 

III166 

ADVAN 

NEXPIC 

KYBLIS 

IT  1 1 6 6 

JMS  KYBLIS 

FICTAP 

III166 

JMS  FICTAP 

MOOVT 

II 1166 

JMS  MOOVT 

MMASSG 

II 1166 

JMS  MMASSG 

DRWVEC 

III162 

JMS  DRWVEC 

SETXYS 

III166 

JMS  SETXYS 

SETTLS 

III162 

JMS  SETTLS. 

MVDATA 

1 1 1 166 

JMS  MVDATA 

MNLSIZ 

III166 

MNLSIZ 

FRSPIC 

III166 

ADVAN 

FRSPIC 

FLASH 

II 1 1 8 7 

.FLASH 

MONAUT 

1 1 1 1.6  6 

JMP  MONAUT 

HDRTRL 

III166 

JMS  HDRTRL 

F.CFIN 

III166 

ADVAN 

FCFIN 

FG7CLR 

III166 

ADVAN 

-FC7CLR 

Internal 

Routine 

Calling  Sequence 

LB DATA 

JMS 

LB DATA  ' 

FINDCH 

JMS 

FINDCH 

SKTOCH 

JMS 

SKTOCH 

TYPLIN 

JMS 

TYPLIN 

PRLNFD 

JMS 

PRLNFD 

PRSETX 

JMS 

PRSETX 

PRLNFS 

JMS 

PRLNFS 

NEXPOK 

NEXPOK 

NEXPAG 

NEXPAG 

TOPPAG 

' TOPPAG 
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Routine  Calling  Sequeno 


SETCHG 

JMS 

SETCHG 

PPAGE 

PPAGE 

PFLASH 

PFLASH 

PKYBLS 

JMS 

PKYBLS 

FCPROC 

JMS 

FCPROC 

FC-AAAF 

JMS 

FCAAAF 

INXSET 

JMS 

INXSET 

MTINIT 

JMS 

MTINIT 

GETREC 

JMS 

GETREC 

GETEND 

JMS 

GETEND 

POKEMT 

JMS 

POKEMT 

POKAGN 

JMS 

POKAGN 

POKEMS 

JMS 

POKEMS 

CUTMAK  ' 

JMS 

CUTMAK 

2.9. 3. ’2  Subroutines 

A.  LB DATA.  Processes  tape  labels.  If  the  tape  is  labeled, 
the  logical  record  size,  carriage'  controls , blocking  factor, 
and  blocking  type  will  be  set. 

B.  SKTOCH.  Does  the  hardware  carriage  control  processing; 
either  skips  to  the  appropriate  line  number  or  ejects  the 
appropriate  number  of  linefeeds.  Only  skips  to  channel  1 
are  processed  as  page  ejects;  all  others  are  linefeeds.'. 

If  CHANUM  is  negative,  SKTOCH  ejects  the  l*s  compliment  of 
linefeeds.  If  CHANUM  is  positive,  the  channel  skip'  takes 
place. 

C.  TYPLIN.  Types  characters  to  the  teletype. 

D.  PRLNFD . Does  one,  two,  or  three  linefeeds,  according  to 
the  value  of  NUMSPC.  NUMSPC  can  specify  single,  double, 
or  triple  linefeed-.  PRNLFD  calls  PRLNFS. 

E.  PRLNFS . Does  one  linefeed  and  a page  eject  if  at  a page 
boundry . 

F.  PRSETX.  Sets  the  X DAC  CX  position)-  to  the  left  margin  on 
the  screen. 
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G.  FINDCH.  Updates  the  pointers  to  the  next  magnetic  tape • 
buffer.  At  exit,  LWDTMP  points  to  the  current  word,,  and 
LCHTMP  points'  to  the  current  byte  position  in  the  word. 

JH.  NEXPOK.  Calls  NEXPAG  to  advance  the  camera  and  flash  the 
forms,  if  any. 

I.  NEXPAG . Calls  PPAGE  to  flash  any  requested  forms,  calls 
NEXPIC  to  advance-  the  camera,  and  calls  TOPPAG  to  reset 
the  DAC’s  (beam  position)  to  the  top  of  page. 

J.  TOPPAG . Flashes  cutmark  if  16  mm,  resets  print  line  number, 
restores  the  page  line  count,  and  sets  the  DAC’s  to  top  of 
page. 

K.  SETCHG . Prints  characters  found  in  the  AC  and  loads  the 
base  address  for  the  high-speed  chatacter  generator. 

L.  PPAGE.  Calls  PFLASH  to  flash  the  null  and  any  requested 
forms  if  the  current  page  is  not  blank. 

M.  PFLASH.  Calls  FLASH  to  flash  forms;  if  form  is  not  loaded, 
outputs  error  message. 

N.  PKYBLS . Calls  KYBLIS  to  check  for  input  from  operator. 

O.  FCPROC.  Is  called  if  title  record  is  found.  FCPROC  stores 
the  fiche  control  line  in  the  teletype  buffer  and  calls 
■NEXPAG  before  printing  the  next  line. 

P.  FCAAAF . For  105  mm  only,  prints  the  index  line  and  stores 
the  data  for  the  index  frame. 

Q.  INXSET.'-  For  105  mm  only,  sets  up  for  the  index  data  to 
be  fetched  and  stored  at  the  end  of  the  current  line, 

R.  CUTMAK.  For  16  mm  only,  puts  the  cutmark  on  16  mm  film. 

S.  MT IN-IT.  Initializes  the  magnetic  tape  buffers,  reads  the 
first  record  off  of  tape  and  sets  data  ready,  and  starts 
a read  of  the  second  record  before  exit. 
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T.  GETREC.  Updates  the  buffer  pointers  and  calls  POKEMT  to 
-read  another  record. 

U. .  GETEND.  Finds  the  last  word  in  the  most  recent  record 

read  from  tape. 

V.  POKEMT.  Calls  POKEMS  to  read  a record  off  of  tape  if  there 
is  an  empty  buffer  and  checks  for  an  end-of-file.  If  an 
error  has  occurred,  the  record  is  reread. 

W.  POKAGN.  Backspaces  the  tape  one  record  for  a retry  if  an 
error  occurred  on  read. 

X.  POKEMS.  Reads* one  record* off  tape.  POKEMS  is  called  by 
POKEMT. 

2. 9. 3. 3 Constants  and  Variables 

A.  AUXCNT.  Auxiliary  control  table.  Any  control  that  is  un- 
known to  the  program  is  stored  here. 

B.  - CHANUM.  Contains  the  space  count  if  negative.  If  positive 

contains  the  channel  number  or  form  number. 

C.  CHARCT.  Contains  the  negative  character  per  line  count 
used  in  the  print  loop. 


D.  HSLBPW.  Contains  starting  address  of  the  Character  .Dispatch 
Table.  Used  as  a base  address  for  the  high-speed  character 
generator. 


E.  LCHPTR. 
buffer . 


F.  LWDPTR. 

f 

G.  LWDTMP . 


H.  NFRMNM. 

I. -  NUMSPC . 


Points  to  the  current  byte  in  the  magnetic  tape 
Initialized  to  zero  after  each  read. 

Points  to  first  word  of  magnetic  tape  data.  * 

Points  to  current  word  in  tape  buffer 

Contains  current  form  number. 

Specifies  single,  double  or  triple  linefeed  mode. 


REPRODUCIBILITY  OF  THE 
JRIGINAL  PAGE  IS  POOR 
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J.  PAGCNT. 

K.  PLINUM. 
L;  VBSIZ'. 

2. 9. '3. 4 Flow 


Contains  the  current  page  count. 

Contains  the  current  print  line  number 
Contains  the  magnetic  tape  record  size  in  words. 
Charts  . See-  following  pages. 
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2.10  COMA  HARVARD  COLLEGE  OBSERVATORY  SOLAR  EXPERIMENT  S055  GRAY- 
LEVEL  7-TRACK  OR  9-TRACK  PROCESSOR  (HCO) 

2.10.1  Background 

A.  Author.  F.  C.  Ashton,  Aeronutronic  Ford  Corp. 

B.  Intent . HCO  is  requested  when  a Harvard  College  Observatory 
Experiment  S055  gray-level  7-track  or  9-track  has  been  sub- 
mitted for  data  to  be  output  to  105  mm  fiche. 

C.  Program  History 

1.  Production  Tape  Date.  28  November  1973 

2.  Author.  F.  C.  Ashton 

3.  Authorization.  FR80  microfilm  system  task  A13 

4.  Test  Case.  Test  tape  requirement,  specification 
SH- 25723 

5.  Revis ions . Reference  Appendix  B,  paragraph  B.10 

2.10.2  Introduction 
2.10.2.1  Hardware  Requirements 

o FR80  with  12K  memory 
» 9-track  or  7-track  tape  unit 
o 105  mm  fiche  camera. 


2.10.2.2  Software  Requirements.  The  following  files,  found  in 
I.I.I.'s  SYM  Directory,  are  required. 


III109 
III166 
PH  OB  AT 


I ii-io4 
III163 
1 1 1 18  5 


III147 
1 1 II 62 
III161 


I I I 188 
II 1161  GO 
III186 
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2.10.2.3  Assembly  Parameters.  The  assembly  parameters  in  III109 
should  be  set  for  the  proper  machine  configuration.  Assembly 
parameters  specific  to  HCO  program  are  as  follows. 

A.  WEDGE.  Defines  code  to  allow  nine  step  wedges  to  be  placed 
on  ID  fiche. 

B.  7 -TRACK.  If  1,  indicates  data  will  be  coming  from  a 7-track 

tape  drive.  • 

C.  FONT . If  0,  indicates  standard  I. I. I.  character  FON^ 

D.  TAPELB . If  1,  indicates  standard  IBM  tape  labels. - 

E.  NASA.  If  1,  indicates  special  characters  used  at  JSC. 

F.  EBCDIC.  If  1,  Indicates  standard  IBM  EBCDIC  character  set. 

G.  LOCASE . If  1,  indicates  lower-case  character  set. 

H.  BI GBUF . If  0,  allows  maximum  amount  of  features  with 
minimum  buffer  space. 

I.  MTSIZE . Defines  length  of  system  tape  buffers  (513  words). 

J.  MTTSIZE.  Defines  length  of  teletype  buffer  (192  words). 

K.  MANYUP . Indicates  that  page  count  is  printed  with  frame 
count  when  the  accounting  information  is  output  to  the 
teletype. 

L.  FTYPE.  Indicates  the  fiche  camera. 

M.  DSKMON.  Indicates  that  disk  monitor  routine  is-  to  be 
- assembled. 

N.  NEXPAG.  Equivalent  to  NEXPIC  routine. 
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2.10.2.4  Operator  Commands 


*TIME=1 ’26.1" 

*FRAME=0 

*G0 

^CONTINUE 
*TITLE 
*END  JOB 
*MAKE  FILM=1 
*CLEAR 
* ADVANCE 

*TAPE  TYPE  - 2,5,8  OR  9=9 

*BACK 

*PARITY=1 

*USE= 1 

* REWIND 

*SKIP 

*TRY  AGAIN=10 
^STANDARD  LABELS=NO 
*UNLABELLED=YES 
*PITCH-MARGIN=44 ,97 
*SI  ZE  OF  TITLE=9223, 61 5 ( 

^IMAGES  PER  FICHE=12 , 8 

*IIITS- CHARS,  VEC,PTS, TITLE, CMARK=1,1, 

*FOCUR 

*LOAD=HCO 

* ROTATIONS 

*PROCESS  JOBS  (0=ALL ,N=N  JOBS)=0 
*LIST (0=NO, 1=YES) =0 


REPRODUCIBILITY  OF  THE 
ORIGINAL  PAGE  IS  POOR 
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2.10.3  Analysis 

2.10.3.1  Major  Control  Section 

A.  Description.  Control  is  given  the  HCO  Program  at  the  loca- 
tion BEGIN.  The  tape  handler- is  initialized  .by  calling 
MTRINI , with  MTAREA  being  set  to  the  tape  buffer  address 
of  EXPND  and  PBUFSZ  set  to  700  words.  The  job  count,  JJOBID, 
is  initialized-  to  zero.  TITSW2  is  set  to  NOP  for  title 
search  routine.  TPOINT,  the  pointer  for  fiche  titles,  is 
set  to  begin  at  the  Title  Table,  FICTBS. 

The  intensity  of  the  PLS  is  set  to  32.  A call  is  made  to 
the  BATNO  Subroutine,  which  accepts  from  teletype  the  COM 
tape  number,  the  source  tape,  and  film  roll  number.  BATNO 
initializes  the  fiche  title  routine,  FICTAP,  for  the  ID 
fiche.  On  the  ID  fiche,  the  program  outputs  nine  different 
gray-step  pages.  Each  page  is  600  pixels  by  600  lines.  The 
nine-step  intensities  are  1,  9,  17,  25,  33,  41,  49,  57,  and 
63... -When  each  page  is  output,  the  image  is  rotated  90°  to 
the-  title  lines-. 

The  program  makes  a call  to  the  TREC  Subroutine  to  process, 
the  title  record.  A call  to  the  HDREC  Subroutine  is  made 
to  check  for  additional  title  records  and  skips  records. 

Then  HDREC  rotates  the  image  90°  to  the  title  and  pro- 
cesses three  header  lines  per  page  of  gray  data.  The 
starting  X and  Y coordinates  for  gray-level  data  are  set 
by  calling  the  SETXYS  Subroutine.  The  number  of  records 
per  gray-level  page,  LNCNT,  is  set  to  60. 

At  the  tag,  REPLN,  the  parameter  for  the  read  subroutine, 

- RDWD,  and  the  get  subroutine,  GTIN,  are  initialized.  The 

- address  for  the  line  iclentif icat ion  is  saved  off  by  a call 
to  SETAD.  The  subroutine  PESET  sets  spacing  for  the  gray- 
level  pixel. 

At  the  tag,  RSMLN,  the  number  of  input  pixels,  PEXCT,  is 
set  to  120  and  the  GTIN  Subroutine  is  called  to  output  a 
pixel  line  to  film.  The  switch  GTSW  is  set  to  NOP  to  pickup 
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pixel  data  from  TABBUF  Table.  The  same  line  of  data  is 
repeated  nine  times.  The  eight  characters  of  line  ID  are 
output  by  calling  the  ECBCD  Subroutine.  Then  a line  of 
gray  pixel  is  output  again.  The  last  four  characters  of 
the  record  are  bypassed.  The  starting  X coordinate  is  off- 
set by  20  scope  points  to  give  a sawtooth  effect. 

The  program  returns  to  the  tag  REPLN  until  60  lines  of 
pixel  data  is  processed.  The  image  is  then  rotated  back 
90°  to  title  rotation  and  the  intensity  of  the  PLS  is  set 
to  32.  The  fiche  is  advanced  one  frame.  The  program  con- 
tinues this  loop,  starting  at  the  tag  HEADER,  until  end- 
of-file  is  reached. 

B.  Input/Output 

1.  Input . Data  is  input  from  a 7- track  or  9-track  drive. 
The  tape  can  be  standard  IBM  label,  .nonstandard  label 
or  unlabeled.  The  data  shall  be  in  a fixed-length 
record  format  (blocked)  with  1320  eight-bit  bytes  per 
block.  Each  logical  record  shall  be  132  bytes  in 
length.  A logical  record  contains  a title  record,  skip 
record,  or  gray-level  record.  A title  record  has  HEX 
D9  in  the  first  byte  of-  the  record.  The  second  byte 
contains  an  EBCDIC  T,-  followed  by  130  bytes  of  title 
information.  A skip  record  has  HEX  D9  in  the  first 
byte  of  the  record.  The  second  byte  contains  an 
EBCDIC  J,  followed  by  130  bytes  of  EBCDIC  blank.  A 
gray-level  record  has  eight  bytes  of  EBCDIC  characters, 
followed  by  120  bytes  of  pixels  and  four  bytes  of 
EBCDIC  blank. 

2.  Output . Output  o_  — ^ rows  by 

12  columns) . The  first  row  of  data. is  title  informa- 
tion; 

3.  Message  Output 

a.  CONTROL  ERROR.  This  is  output  to  the  teletype  when 
the  first  logical  record  on  the  file  is  not  a title 
record. 
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b.  TITLE  ERROR.  This  is  output  to  the  teletype  when 
the  title  record  is  in  error. 

c.  JOB  ID  NO.  The  title  information  is  output  to  the 
teletype  along  with  this  message. 

d.  ENTER  SOURCE  TAPE.  This  is  output  to  the  teletype 
and  the  mainline  waits  for  the  source  tape  number. 
The  operator  types  up  to  12  characters  of  informa- 
tion. 

e.  ENTER  COM  TAPE . This  is  output  to  the  teletype 
and,  the  mainline  waits  for  the  COM  tape  number. 

The  operator  types  up  to  12  characters  of  informa- 
tion. 

,f.  ENTER  ROLL.  This  is  output  to  the  teletype  and 

the  mainline  waits  for  the  roll  number.  The  oper- 
ator types  in  12  characters  of  information. 


C-  Linkages 

1.  External 


Routine 

Program 

FCFIN 

I I 1166 

ADVAN 

FC7CLR 

I I 1166 

ADVAN 

FICTAP 

III188 

FRSPIC 

III166 

ADVAN 

GETINAM 

I I I 161 

GETT 

III163 

KLBLIS 

.111166 

MDONEX 

III166 

IN  VAN 

MDOUT 

III166 

MCRLF 

II 1166 

ADVAN 

MMESSG 

III166 

ADVAN 

MONOUT 

III166 

INVAR 

MTRINI 

II 1163 

NEXPIC 

1 1 1 160 

ADVAN 

MNBRIT 

III166 

PSTLL 

I I I 166 

ROTATE 

I I I 166 

SETPL'S 

I I I 166 

SETXYS 

III160 
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Internal 

Routines 

BATNO 

HCOEXT 

LSTON 

SETAD 

BATEND 

HDREC 

MVCOM 

TITPUT 

BTTY 

HKPJBS 

PRESET 

TITSR 

CKCOM 

H0BM0D 

PLSET 

TTYIT 

ECBCD 

HOBSKJ 

RDWD 

GTIN 

IDLST 

RSRT 

HBMODE 

LSTID  ' 

SAVCH 

2.10.3.2  Subroutines 

A.  BATNO.  Accepts  source  tape  number,  COM  tape  number,  and 

roll  number  from  the  operator.  The  subroutine  is  called 
to  output  the  title  fiche.  Calling  sequence:  JMS  BATNO. 

B.  BATEND.  Outputs  the  trailing  ID  fiche  at  end  of  job. 

Calling  sequence:  JMS  BATEND. 

C.  BTTY.  Accepts  character  from  teletype  and  stores  one  char- 
acter per  word.  The  subroutine  accepts  up  to  12  characters. 
If  the  user  wishes  to  use  less  than  12  characters,  he  ter- 
minates string  of  input  characters  with  a carriage  return 
and  routine  will  space  fill  the  rest  of  the  buffer.  The 
subroutine  converts  ASCII  characters  to  EBCDIC.  A rubout 
character  will  allo\tf  the  user  to  start  reinputting  the' 
character  string.  Calling  sequence,  where  LAC  is  the  ad- 
dress of  place  to  store  character: 

LAC 

JMS  BTTY 

D.  CKCOM.  Checks  for  COM  control  record  of  J and  T records. 

If  a J control  record  is  detected,  a blank  frame  is  re- 
corded’ on  fiche.  When  a T control  record  is  detected,  the 
count  of  number  of  jobs  to  be  run  is  checked.  If  the  title 
record  is  greater  than  the  number  of  jobs,  the  routine  ends 
the  run.  If  the  title  record  is  less  than  or  equal  to  the 
number  of  jobs,  the  new  title  is  output  to  fiche.  Calling 
sequence:  JMS  CKCOM. 
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E.  ECBCD.  Outputs  a line  of  EBCDIC  characters  to  film.  Call- 
ing sequence,  where  the  first  LAC  is  the  address  of  the 
buffer  and  the  second  is  the  negative  number  of  characters: 

LAC 

DAC  ADDSV 

LAC 

JMS  ECBCD 

F.  GTIN.  Gets  a pixel  value  and  outputs  the  pixel  five  times 
to  film.  When  the  GTSW  switch  is  set  to  a SKIP,  the  pixel 
value  is  picked  up  from  the  tape  buffer,  complemented  and 
stored  in  the  table  TABBUF.  When  the  GTSW  switch  is  set  to 
NOP,  the  pixel  is  picked  up  from  TABBUF.  Calling  sequence: 

LAC  (SKP  or  NOP) 

DAC  GTSW 
JMS  GTIN 

G.  HBMODE . Called  by  MONITOR  to  get  the  number  of  jobs  to 

process.  Calling  sequence:  DAC  HBMODE. 

H.  HCOEXT.  Called  when  END  JOB  is  typed  in.  The  subroutine 

rotates  image,  sets  the  title  intensity,  and  outputs  trail 
ing  ID  fiche.  Calling  sequence:  JMS  HCOEXT 

I.  HDREC.  Calls  KYBLIS  to  check  for  console  intervention, 

CKCON  to  check  for  a COM  control  record.,  ROTATE  to  rotate 
the  image,  SETXYS  to  set  the  starting  X and  Y coordinates, 
and  PLSET  to  set  the  spacing  for  ALPHA  MODE.  The  subrou- 
tine outputs  three  lines  of  header  information.  Calling 
sequence:  JMS  HDREC, 

J.  HKPJBS.  Called  by  MONITOR  to  display  the  title  number. 

Calling  sequence:  DAC  HKPJBS. 

K.  HOBMOD. . Gets  the  number  of  jobs  to  process  and  store  it 

in  JOBCT.  Calling  sequence:  JMS  I HOBMOD. 

L.  HOBSKJ.  Gets  the  number  of  titles. to  skip  and  stores  it 

in  TITRCT.  The  subroutine  sets  TITSW  to  JMS  TITSR.  Call- 
ing sequence:  JMS  I HOBSKJ. 
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M.  IDLST.  Displays  the  list  ID  YES  or  NO  flag.  Calling 

sequence:  DAC  IDLST. 

N.  LSTID.  Gets  the  LIST  ID  flag  and  stores  it  at  IDWHT  (0  = 

no  list,  1 = list).  When  the  LIST  ID  flag  is  0,  LSTSW  is 
set  to  NOP.  When  the  flag  is  1,  LSTSW  is  set  to  JMS  LSTON, 
and  JITSW  is  set  to  TITSR.  Calling  sequence:  JMP  I LBTID 

O.  'LSTON.  Moves  ’title  record  information  to  the  title  buffer 
and  outputs  title  to  the  teletype.  Calling  sequence: 

JMS  LSTON. 

P.  MVCOM.  Moves  the  title  record  from  the  tape  buffer  to  the 

title  buffer.  Calling  sequence:  JMS  MVCOM. 

Q. ,  PESET.  Sets  the  spacing  and  spot  .size  for  gray-level  out- 

put. CHDELX,  the  X delta  spacing,  is’  set  to  10  and  CHDELY, 
the  Y delta  spacing,  is  set  to  id.  The  spot  size  is  set 
to  5..  Calling  sequence:  JMS  PESET. 

R.  PLSET.  Sets  the  spacing  and  the  spot-  size  for  alphanumeric 

data.  CHDELX,  the  X delta  spacing,  is  set  to  65  and  CHDELY 
the  Y delta  spacing,  is  set  to  50.  The  character  size  is 
set  to  6 and  intensity  to  48.  Calling  sequence:  JMS -PLSET 

S.  RDRT.  Saves  the  parameters  for  the  tape  handler.  MTCNT  is 
the  word  count;  MTPTR  is  address  of  current  line  within 
the  buffer.  MTBYTW  contains  next,  half-word  o'f  line. 

MTBYTC  is  number  of  bits  in  last  word.  Calling  sequence.: 
JMS  RDPT. 

T.  RDWD . Saves  the  first  eight  characters  of  the  line  in  a. 
temporary  buffer  and  stores  the  intensity  in  INT.'  When  ’ 
the  routine  is  initially  calling  for  line  data  RDSW1  is 
set  to  SKIP  and  the  first  eight  characters  are  saved. 

Then  RDSW1  is  set  to  NOP  for  access  of  the  gray-level  in- 
tensity. Calling:  sequence,  where  DAC  RDSW1  initially  calls 
for  line  data: 

LAC  (SKP) 

DAC  RDSW1 
JMS  RDWD 
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U.  RSRT.  Restores  parameter  for  tape  handler.  Calling  se- 
quence: JMS  RSRT. 

V.  SAVCH.  Saves  off  alphanumeric  characters  in  the  character 
buffer,  CHRBUF.  Calling  sequence,  when  N = number 'of 
characters  to  save  off: 

LAM  -N 
JMS  SAVCH 

W.  SETAD.  Loads  address  of  character  buffer,  CHRBUF,  into 

ADDSV.  Calling  sequence:  JMS  SETAD. 

X. '  TITINT . Loads  address  of  the  teletype  output  buffer  TITTY 

into  teletype  pointer,  TITPT,  and  calls  TITWD'  to  set  up 
word  count.  Calling  sequence:  JMS  TITINT. 

Y.  TITPUT . Stores  three  characters  per  word  in  the  teletype 

buffer.  Calling  sequence:  JMS  TITPUT. 

, Z.  TITSR'.  Reads  down  the  tape  N number  of  title  records. 

MONITOR’S  HOBSKP  Subroutine  stores  N,  the  number  of  titles 
to  be  skipped.  Calling  sequence:  JMS  TITSR; 

AA.  TITWD.  Initializes  the  teletype  word  buffer  to  zero  and 
sets  number  of  teletype  characters  to  three.  Calling 
sequence:  JMS  TITWD. 

BB.  TTYTIT.  Outputs  the  title  to  teletype.  The  title  inf or- - 
mation  has  to  be  stored  in  title  buffer.  The  title  buffer 
addresses ( is  stored  in  MTTARE . Calling  sequence: 

. iJMS  TTyTIT> 

2.10.3.3  Constants  anu.  vcti .La uj.es 
A.,  External 

1*  BCKCOM.  Constant  used  when  backspacing  tape  via  MVDATA. 

2.  CHDELX.  Variable  that  contains  X spacing. 

3.  CHDELY,  Variable  that  contains  Y spacing. 
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4. 

5. 

6. 

7. 

8. 
9. 


10.- 


CHRSIZ.  Variable  that  contains  character  size. 

FCXCNT.  Constant  that  contains  row  count  of  12. 

FCYCNT.  Constant  that  contains  column  count  of  8. 

FICMAR.  Constant  containing  fiche  margin  (-96). 

FICFRM.  Constant  containing  fiche  pitch  (-43) . 

FICTB . Buffer  where  title  information  is  stored. 

MAXTRW.  Variable  used  by  the  III185  title  routine 
The  program  initializes  MAXTRW  to  zero. 


H.  MDISIZ.  Constant  containing  character  size  of  monitor 
display  (63).. 

12.  MPISLF.  Constant  containing  line  spacing  of  monitor 
display  (438  scope  points). 

13 . MDISPL.  Constant  containing  spacing  between  characters 
on  monitor  display  (384  scope  points). 

14'.  MTAREA.  Constant  containing  the  address  of  tape  buffer. 

I. 5.  MTBYTC.  Variable,  used  to  count  number  of  bits  used  in 

III163. 

16.  MTBYTW.  Variable  used  to  save  remainder  of  unused  bits 
in  III163 . 

17  . MT CNT . Variable  c.ontainin-g  number  of  words  remaining 
in  tape  buffer. 

18.  MTPTR.  Variable  containing  pointer  into  tape  buffer. 

19.  ■ MTTARE.  Constant  containing  address  of  title  buffer. 

20.  PBUFSZ.  Constant  containing  number  of  words  in  tape 
buffer  (700). 
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21. 

PGNAME . 

Constant 

containing  program  name  HCO. 

22. 

RECPIN. 

Variable 

to  hold  the  intensity. 

23. 

RECSPT. 

Variable 

to  hold  spot  size. 

24. 

VCHTAB . 

Table  to 

use  to  convert  EBCDIC  to  ASCII. 

25. 

XTITS . 
of  title 

Constant 
(=  2200) 

containing • the  starting  X coordinate 

• 

B.  Internal 

1.  ADDSV.  Variable  containing  the  address  o£  the  characte 
buffer  CHRBUF . 

2.  ALPHX.  Constant  (5042)  which  is  starting  X coordinate 
of  alphanumeric-  characters . 

3.  ALPHY.  Constant  (10047)  which  is  starting  Y coordinate 
of  alphanumeric  characters. 

4.  BATARE . Table  for  the  BEGIN  and  END  ID  title  fiche. 

5.  BEGN . Cons tant BEGIN  for  the  ID  fiche. 

6.  BTABL.  Table  used  to  convert  characters  from  ASCII  to 
EBCDIC. 

7.  BTCT . Variable  used  as  counter  in  BATNO  Subroutine. 

8.  BTLN.  Constant  length  of  the  ID  title. 

9.  CHDELX.  Constant  of  65;  X spacing  for  alphanumeric 
characters . 

10.  CHDELY.  Cbnstant  of  50;  Y spacing  for  alphanumeric 
characters. 

11.  CHRBUF . Variable  table  to  store  EBCDIC  character,  two 
characters  per  word. 
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12. 

13. 

14. 

15. - 
16*. 

17. 

18. 

19. 

20. 
2-1. 
22. 

23. 

24. 

25. 

26. 

27. 

28. 
29. 


CHRCT . Variable  running  count  o£  characters  per 
record. 

CHRPT . Variable  pointer  into  character  buffer,  CHRBUF. 

CMTAP.  Variable  buffer,  where  the  COM  tape  number  for 
the  ID  fiche  is  stored. 

CRSCON . ' Constant  of  1 used  to  rotate  image. 

CTLMES . Message  CONTROL  ERROR  output  to  teletype  when 
record  oh  tape  is  not  a COM  control  record.. 

CTMES . . Message  ENTER  COM  TAPE  output  to  teletype  when 
accepting  COM  tape  number  for  ID  fiche. 

ENEND.  Message  END  put.  on  tail  fiche  ID. 

IDWHT.  Variable  used  for  display  of  answer  ‘for  LIST 
(0  = NO;  1 = YES). 

INT . Variable  temporary  hold  for  intensity. 

INTHD..  Variable  transposed  intensity. 

INTOUT . Constant  of  3;  title  intensity. 

JJOBID'.  Variable;  actual  title  number  processed. 

JOBCT.  Variable;  maximum  number  of  titles  to  process. 

LNCNT.  Variable;  line  count  per  frame. 

NAM I D . Message  JOB  ID  NO  output  to  teletype  when  title 
is  output. 

ORCON.  Constant  of  16  used  to  offset  X coordinate. 

OTHERC.  Constant  of  0 used  to  rotate  image. 

PEDELX . Constant  of  10;  X spacing  for  gray-level 
pixel . 
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30.  PEDELY.  Constant  of  10;  Y spacing  for  gray-level 
pixel. 

31.  PEXX . Constant  of  5446;  starting  X coordinate  for 
first  gray-level  pixel  of  image. 

32.  PEXY.  Constant  of  10097;  the  starting  Y coordinate 
for  first  gray-level  pixel  of  image. 

33.  PEXCT.  Variable  used  to  hold  pixels  per  line. 

34.  PNTCT . Variable  used  to  hold  number  of  pixel  repeats. 

35.  RDBYC . Variable  used  as  temporary  hold  for  read  byte 

count,  MTBYTC . 

36.  RDBYTW.  Variable  used  as  temporary  hold  for  MYBYTW. 

37 • RDCNT.  Variable  used  as  temporary  hold  for  read  word 
count,  MTCNT. 

38.  RDPTR.  Variable  used  as  temporary  hold  for  read  pointe: 

MTPTR. 


39.  RLL.  Variable  buffer  where  the  roll  number  is  stored 
for  ID  fiche. 

40.  RLMES.  Message  ENTER  ROLL,  output  to  teletype  when 
accepting  roll  number. 

41.  RRLN.  Variable  to'  hold  the  repeat  line  count. 

42.  5PSI Z.  Constant  (5)  which  is  the  character  size  of 
EBCDIC  character. 

43.  SRMES . Message  ENTER  SOURCE  TAPE,  output  to  teletype 
when  accepting  source  tape  number  for  ID  fiche. 

44.  SRTA'P . Variable  buffer  when  source  tape  number  is 
stored  for  ID  fiche. 
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45.  SyiND.  Variable  save  address  of  buffer  where  teletype 
is  to  store  information. 

46.  TABBUF.  Variable  buffer  of  120  words  where  the  trans- 
pose intensities  are  stored. 

47.  TAB! NT.  Constant  table  of  64  words  use  to  transpose 
intensity. 

48.  TITINT.  Constant  (4)  which  is  title  output  intensity. 

49.  TITPT.  Variable  pointer  to  output  teletype  buffer, 
TITTY. 

50.  TITRCT.  Variable  number  of  titles  to  skip  before  start- 
ing to  process ■ fiche. 

51.  TITTY.  Variable  buffer  inhere  title  information  is 
stored  for  teletype  output. 

52.  TMPCT.  Variable  temporary  storage  and  count. 

53.  TI INFO.  Variable  buffer  where  BEGIN  or  END  is  stored 
for  ID  fiche. 

2.10.3.4  Flow  Charts.  See  following  pages., 


2-581 


SISO-TR531 
Vol . II 


2-583 


SIS0-TRS31 
Vol . II 


_J 

Sa'T/v# 

T 

Ga-tch 

jiJL e 


R&taTz 
K4  TA-'T? 
£KAfy(*£  Ha 


*&)(/*((. 

A $YA-/irc£ 
F-Kfi-  /v>£ 


S£.T  X*7 

7>  t 

T&&-  /‘Z/asT 

XhTzN 


5 e.  T V 'i  $7 
\je  &V&B-  T# 

± 


BTOODUCIBILITY 
PAGE  I 


OF  THE 
> POOR 


2-584 


SISO-TR531 
Vol.  II 


SIS0-TR5  31 
Vol.  II 


2-586 


SISO-TR531 
Vol.  II 


REPRODUCIBILITY  OP  THE 
ORIGINAL  PAGE  IS  POOR 


2-587 


SISO-TR531 
Vol.  II 


2-588 


SIS0-TR5  31 
Vol.  II 


H-DKEc. 
PMc&iS  ) 
ft-BAde* 

I 

5 

5^r  /=«#/? 
$T#*t  !r  +!/ 
Kfr>fK  P 1)1  Elf 


2-589 


SIS0-TR5  31 
Vol.  II 


% 


2-590 


SISO-TR531 
Vol.  II 


V 


2-591 


SISO-TR531 
Vol.  II 


2-592 


SISO-TR531 
Vol.  II 


2-593 


SISO-TR531 
Vol . II 


2-594 


SISO-TR531 
Vol.  II 


OF  THE 
S POOR 


2-595 


SIS0-TR5  31 
Vol.  II 


2-596 


• SI SO-TR531 
Vol . II 


2-597 


SISO-TR531 
Vol . II 


2-598 


SIS0-TR5  31 
Vol . II 


gr4R& 

rry 


2-600 


SISO-TR531 
Vol.  II 


2-601 


SISO-TR531 
Vol.  II 


$£T  IVum0£/{ 


l-h£fr-0£/> 

flfjiUKl  T*> 


2-602 


SISO-TR531 
Vol . II 


2-603 


SISO-TR531 
Vol . II 


$ ME- 
T?  ffrVE- 


q>F  am^TSfi 

Buff&r 


£gTT£ 

Cr£  T Fl&T 
UtfifrMT&R 

v 4>p  mM 


&err  F<n$j\ 


C-&T 

^ CthfrfKtv-'TFR 
vfp 


2-604 


SISO-TR513 
Vol . II 


?_  fin  e; 


2-606 


SISO-TR531 
Vol . II ' 


2-607 


SISO-TR531 
Vol.  II 


'X'fVytJ'?  PT-C-K  ioP 

T*  fi>Gv  ?s/fe:t7 

(\&V 

DlRBcT  d> &JWT  -LNY&aj  TfytfuFz 


¥ 


«RQDUCIBILITY  OP  THE 
PAGE  3S  POOR 


2-608 


SISO-TR531 
Vol.  II 


2-609 


SIS0-TR531 
Vol . II 


BMPKODUCffilLITY  OF  THE 

original’  page  is  poor 


2-610 


SISO-TR531 
Vol . II 


2-611 


SISO 

Vol. 


££  T DBL-TA  t 
TV  1° 


5^7  V£LT&y 

TV  ^ 


TR531 

II 


5 5^7 

5X2^  r* 

5~ 


SISO-TR531 
Vol . II 


2-613 


- SISO-TR531 
Vol . II 


2-614 


2-615 


SIS0-TR531 
Vol . II 


BSPBODUCISILrrY  OF  THT 
ORIGINAL  PAGE  IB  POOR  - 


2-616 


SIS0-TR531 
Vol.  II 


5£T  ama 

To  (I* 


hDD  ( To 
\Td{6  £ ^ 


2.-.617 


2-618- 


SISO-TR531 
Vol . II. 


2-619 


SISO-TR531 
Vol . II 


2-620 


SIS0-TR531 
Vol . II 


2-621 


SIS0-TR531 
Vol . II 


'f 


2-623 


2-62 


S ISO-TR531 
Vol . II 


2-625 


SISO- TR531 
Vol . II 


W 


2-626 


SISO-TR531 
Vol . II 


fiicFFP/i  4P 

7-77  $i*T**v 


2-627 


t SISO-TR531 
Vol . II 


2-628 


SISO-TR531 
Vol . II 


REPRODUCIBILITY  OF  THE 
ORIGINAL  PAGE  IS  POOR 


2-629 


SISO-TR531 
Vol . II 


2-631 


SISO-TR531 
Vol . II 


2-632 


SISO-TR531 
Vol . II 


2-633 


SISO-TR531 
Vol.  II 


REPRODUCIBILITY  OF  TEE 
ORIGINAL  PAGE  IS  POOR 


2-634 


SISO-TR531 
Vol.  II 


2-635 


SIS0-TR531 
Vol . II 


2-636 


SISO-TR531 
Vol.  II 


REPRODUCIBILITY  Of  TIE 
ORIGINAL  PAGE  |g  POOR. 


2-637 


SISO-TR531 
Vol.  II 


2-638 


SISO-TR531 
Vol . II 


2-640 


SISO-TRi 
Vol.  II 


2.11  COMA  UNIVAC  494  PRINT  PROCESSOR  FOR  105  irrai  FICHE  (94U105) 

2.11.1  Background 

A.  Author.  I.  J.  Morgan,  Aeronutronic  Ford  Corp. 

B.  Intent . Requested  when  a Univac  494  print  7-track  magnetic 
tape  has  been  submitted  for  data  to  be  output  to  microfiche 
(105  mm  film) . The  requirements  for  this  program  are  speci- 
fied in  SH-09846 . 


Q.  Program  History 

1.  Production  Tape  Date.  19  June  1973 

2.  Author.  I.  J.  Morgan 

3.  Authorization.  EO-204F 

4.  Test  Cases.  TPS  (JSC  Form  1225)  No.  A17 

5.  Revisions . Reference  Appendix  B,  paragraph  B.ll 

2.11.2  Introduction.  This  paragraph  describes  the  usage  and  de- 
sign of  the  Univac  494  Print  Processor  for  105  mm  microfiche 
(94U105).  The  MONITOR  and  associated  I/O  driven  routines  are 
described  in  SISO-TR531,  Vol.  I. 

2.11.2.1  Hardware  Requirements 

• FR80  with  12K  memory 

• 7-track  tape  unit 

• 105.  mni  camera. 


2.11.2.2  Software  Requirements.  The  following  files  from  I.I.I.'s 
SYM  Directory  are  required. 


III109  III185 
III166  III163 
III164  III147 


I I 1162  III187 

III1 61  FLOAD 

III161  GO  III186 
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2 . 11 ; 2 . 3 Assembly  Parameters.  The  assembly  parameters  in  III109 
should  be  set  for  the  proper  machine  configuration.  Assembly 
parameters  specific  to  the  941J105  Print  Processor  are  as  follows. 

A*  7-TRACK.  If  1,  indicates  data  will  be  coming  from  a 7-track 
tape  drive. 

B.  MUMBLE.  If  1,  indicates  system  configuration  for  output  to 
teletype. 

C.  CAMNTJM.  If  9,  indicates  105  mm  camera  is  being  used. 

D.  PTYPE.  If  3,  ensures  compatibility  with  EBC  forms. 

E.  ALLOW.  Defines  code  to  allow  form  loading  and  flashing. 

. F.  NUMCAM-.  .If  6,  facilitates  camera  change  at  run  time. 

G.  TWOBUF.  If  1,  gives  two  magnetic  tape  buffers  for  higher 

throughput. 

H.  BIGBUF.  If  1,  allows  maximum  amount  of  features  with 
, minimum  buffer  space. 

I.  MTPTR.  If  10,  assigns  the  active  buffer  address  to  auto- 
index, register  10. 

J.  MTSI ZE . Magnetic  tape  buffer  size. 

K.  MTTSIZ.  Teletype  buffer  size. 

L.  FTYPE . 105  mm  camera  indicator, 

M.  PONT . Must  be  defined  to  direct  the  inclusion  of  a font 

at  the  end  of  III164;  0 = film. 

N.  MTWRDS.  Pf  1,  GETT  (Get  Bits  Subroutine)  will.’ not  be 
assembled. 

O.  F INDEX.  Allows  form  indexing. 
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P.  MANYUP.  If  nonzero,  indicates  page  and  frame  number  will 

Q. 


be  printed. 

NODISP . If  defined,  MONITOR  command  list  will  not  be  dis- 


played. 

R.  UN I VAC.  If  1,  defines  the  Univac  Fieldata  character  set. 

2.11.2.4  Operator  Commands.  The  following  commands  are  availablf 
for.  use,  but , since  the  command  list  is  not  displayed,  none  can 
be  modified. 


*TIME=0T0” 

* FRAME =0 
*CURRENT  PAGE=0 
*GO 

^CONTINUE 
*MAKE  FILM=1 
*CLEAR 
* AD  VANCE’ 

*TAPE  TYPE  - 2,5  OR  8=8 

*BACK 

*PARITY=1 

*USE=1 

* REWIND 

*SKIP 

*TRY  AGAIN=10 

*F0RM  = NULL  . 16FRM1  16FRM2  X6FRM3'  16FRM4 
*ERR0R  FORM=NO 
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2.11.3  Analysis 

2.11.3.1  Major  Control  Section 

A.  Description.  This  program  is  requested  to  be  run  by  the 
operator  when  a 494  print  tape  is  to  be  output  to  micro- 
fiche. The  program  is  called  by  MONITOR  (III166)  through 
the  PSTART  Subroutine.  Data  is  read  into  core  from  the 
tape  by  the  double  buffer  process  using  MTRINI , a subroutine 
in  III163.  A buffer  area  of  360  words  is  reserved  for  this 
read.  There  are  four  logical  records  of  45  words  each  in 
each  physical  record  of  180  words  (see  figure  2-1) . The 
camera  is  advanced  to  the  next  fiche  to  assure  that  no  over- 
writing occurs.  Parameters  are  set  to  output  207  print 
pages  per  microfiche. 

The  first  and  second  words  of  the  first  logical  record  are 
examined.  If  this  is  a job  separator  control  record,  the 
program  goes  to  the  JOBREC  Routine.  If  not,  the  error  mes- 
sage CONTROL  ERROR  is  output  and  control  is  given  back  to 
MONITOR.  JOBREC  is  executed  when  a j ob  separator  record  is 
found.  The  job  information  to  be  output  to  the  fiche  is 
stored  in  TTYBUF.  The  previous  job  (if  this  is  not  the 
first  one)  is  finished  by  the  subroutine  FICTAP.  NEXPIC 
is  called  to  advance  to  the  next  page  and  frame.  HEADER  and 
TOPPAG  ready  the  fiche  for  the  new  job  by  setting  the  new 
X and  Y coordinates,  character  size,  and  light  intensity. 

The  next  logical  record  is  then  picked  up.  If  this  is 
another  control,  record,  it  will  go  to  the  appropriate  con- 
trol routine  as  described  below.  Otherwise,  the  record  is 
output  as  print  data  by  the  routine  DATREC. 

TREC  processes  the  title  control  record.  The  information 
for  the  title  is  stored  in  the  TTYBUF  by  the  subroutine 
MVCOM,  FICTAP  is  then  called  to  decode  and  output  both  the 
job  and  title  control  record  information.  If  there  is  no 
title  control  record,  the  job  name  will  be  output  when  the 
first  data  record  is  encountered.  TOPPAG  is  called  after 
the  job  and  title  information  has  been  output  to  ready  the 
fiche  for  the  first  data. 


2-644 


SISO-TR531 
Vol . II 


17 


0 

0 

LINE 

SKIP 

45  WORDS 
-1  LOGICAL 
RECORD 


180  WORDS 
_1  PHYSICAL 
RECORD  = 

1 BUFFER 


DOUBLE 

BUFFER 


LINE  SKIP  NO.  = 0 THRU  63 


Figure  2-1  94U105  Buffer  Area  EEPRODUCIBILnY  OP 

ORIGINAL  PAf^  " 


SISO-TR531 
Vol.  II 


FRMREC.  is  called  when  a form  control  record  has  been  encountered. 
The  form  number  is  found  in  the  first  byte  of  the  third  word  of 
this  record  by  the  subroutine  BY.T3WD.  It  is  stored  In  the  loca-  • 
tion  FRMNUM.  If  a form  greater  than  four  was  requested,  the 
message  ILLEGAL  FORM  is  output  to  the  teletype,  and  the  program 
returns  to  process  the  next  record  after  storing  a zero  in  FRMNUM. 
If  the  form  number  is  zero,  FLASSW  is  set  so  that  a form  will  not 
be  flashed.  The  subroutine  BYT3WD  is-  again  called  to  get  the  sec- 
ond byte  of  the  third  word  of  the  record.  If  this  byte  does  not 
contain  an  I , the  program  processes  the  next  logical  record.  An 
I indicates  that  indexing  is  being  requested.  The  subroutine  NMGET 
is  called  to  pick  up  and  convert  from  Fieldata  to  binary  the  line 
number  to-be  indexed  (stored  in  location  YINDX) ; the  beginning  byte 
in  the  print  line  (stored  in  location  XINDX) , and  the  number  of 
characters  to  be  output  for  this  line  in  the  index  frame  (stored 
in  location  CHRCNT) . The  switches  INXSSW  and  IFLASW  are  set  for 
the  index  frame  to  be  flashed  at  the  end  of  the  fiche. 

When  an  image  orientation  record  Is  encountered,  ROTCOM  causes 
-the  COMIC  mode  to  be  used. 

DATREC  is  called  when  print  data  is-  found.  A total  of  132  char- 
acters are  output.  If  this  is  the  line  that  is  to  be  used  for 
indexing,  INXOUT  is  called  to  save  the  necessary  data  for  the  in- 
dex frame.  The  line  skip  number  is  found  in  the  last  word  of  the 
logical  record'.  The  number  of  carriage  returns  executed  is  equal 
to  this  number  plus  one,  with  the  line  count  number,  LNCNT,  being 
incremented  each  time.  When  LNCNT  equals  64,  PPAGE  flashes  the 
form,  if  any,  and  NEXPIC  is  called  to  advance  the  page.  NEXPIC 
will  also  output  the  index  frame  and  advance  to  the  next  fiche  if 
this  is  the  last  page  of  data  for  that  fiche.  TOPPAG  then  sets 
the  X and  Y coordinates  for  the  new. page. 

After  processing  each  data  record,  the  program  returns  to  pick  up 
the  next  logical  record.  The  program  continues  until  an  end-of- 
j ob , end-of-tape-  control  record  is  encountered.  The  end-of-job, 
end-of-tape  control  record  Is  encountered  when  all  the  jobs  on  a 
single  or  multiple  tapes  have  been  processed.  PPAGE  is  called  to 
flash  the  form  on  the  last  page,  if  one  is  present,  and  then  the 
program  goes  to  MTEOFF  which  goes  to  MONITOR  and  types  out  END  OF 
FILE.  END  JOB/J  is  input  by  the1 operator  to  complete  the  last 
fiche. 
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B.  Inputs/Output 

X.  Input.  Data  is  input  from  a 7- track  tape  drive  in  logi- 
cal units  of  45  words  each,  and  in.  physical  records  of 
180  words  each-. 

2.  Output.  Output  of  data  is  '-to  a 105  mm  fiche  (micro- 
fiche). Each  microfiche  has  the  capacity  for  207  print 
pages  with  each  page  having  a maximum  of  64  lines  per 
page,  132'  characters  per  line. 

3 . Error  Message  Output 

a.  CONTROL  ERROR.  This  is  output  when  the  first  logi- 
cal record  of  a job  is  not  a control  record. 

b.  ILLEGAL  FORM.  This  is  output  when  a form  number 
greater  than  four  has  been  requested. 

c.  NO  FORM.  This  is  output  when  the  form  number  is 
equal  to  zero  and  FLASSW  has-  npt  been  properly  set 
to  nrftvent  the  logic  from  reaching  this  point. 

C.  Linkages 


Routine  - 

Pro.gr  am 

Calling 

Sequence 

MTLAC 

III163  ■ 

JMS  MTLAC 

MTRINI 

.111163 

JMS  MTRINI 

FC7CLR 

III166 

FC7CLR 

FRSPIC 

III166 

FRSPIC 

INXDO 

III166 

JMS  INXDO 

KYB'LIS 

III166 

JMS  KYBLIS 

MCRLF 

I I I 166 

JMS  MCRLF 

MMESSG 

III16-6 

JMS  MMESSG 

MONINT 

III166 

JMS  MONINT 

MONOUX 

III166 

JMS  MONOUX 

MTEOFF 

1 1 1 16  6 

JMS  MTEOFF 

NEXPIC 

111166 

NEXPIC 

ROT AT R 

II 1166 

JMS  ROT AT R 

SETOMU 

II I 166 

JMS  SETOMU 
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Calling 

■Routine 

Program 

Sequence 

SETPLS 

II 1166 

SETPLS 

SETXYS 

III166 

JMS  SETXYS 

LAC  X- COORDINATE 

LAC  Y- COORDINATE 

FICTAP 

III186 

JMS  FICTAP 

FLASH 

PR0187 

FLASH 

2.  Internal 

Calling 

Routine 

Sequence 

BYT3WD 

JMS  BYT3WD 

EBGET 

TMS  EBGET 

HEADER 

MS  HEADER 

INXOUT 

'MS  INXOUT 

MV  COM' 

'MS  MVCOM 

NMGET 

MS  NMGET 

NMGET1 

IMS  NMGET1 

NXWD 

MS  NXWD 

P FLASH 

MS  P FLASH 

PPAGE 

MS  PPAGE 

RDPT 

MS  RDPT 

RSPT 

MS  RSPT 

SETBYT 

JMS  SETBYT 

STARTX 

JMS  STARTX 

TOPPAG 

JMS  TOPPAG 

2 Subroutines 

BYT3WD.  Used  to 

access  one 

particular  byte  in  a word. 

Prior  to  BYT3WD 

being  called 

the  first  time,  SETBYT  has 

been  called  to  set  flags  to 

indicate  that  none  of  the 

three  bytes  have 

yet  been  processed.  When  none  of  the 

flags  are  §'et,  the  next  word 

in  the  buffer  is  obtained. 

The  word  is  divided  into  bytes  with  bits  0-5  being  stored 

in  word  location 

UBYTE,  bits 

6-11  in  word  location  UBYT1, 

and  bits  12-17  in  UBYT2.  UBYTE  is  then  passed  to  the 

calling  routine. 

The  next  time  BYT3WD  is  called,  UBYT1 

will'  be  passed. 

and  on  the  third  call,  UBYT2  will  be  pass- 

unless  SETBYT  has  been  requested  to  reset  these  flags. 
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B.  EBGET . Called  by  NMGET  and  NMGET1 , which  store  the  number 
of  bytes  to  be  converted  in  the  location  TEMP.  EBGET  calls 
BYT3WD  to  obtain  each  byte.  The. byte  is  converted  from 
Fieldata  to  binary  and  added  to  the  last  digit  converted, 
if  this  is  not  the  first.  EBGET  continues  to  process 
bytes  until  all  the  bytes  have  been  converted. 

C.  HEADER.  Called  at  the  beginning  of  a job  to  set  the  X 
delta,  the  Y delta,  the  character  size,  the  intensity,  and 
the  spot  size. 

D.  INXOUT.  Called  when  a line  is  to  be  saved  for  the  index 
frame.  SETBYT  is  called  to  reset  the  byte  flags.  STARTX 

is  then  called  to  clear  TTYBUF  and  to  store  the  complemented 
character  count  in  MCHCNT  and  IXXLEN.  Each  byte  is  moved 
into  TTYBUF.  When  all  information  has  been  moved,  INXDO 
is  called  to  save  the  information  for  the  index  frame. 

IXXLEN  is  used  by  the  subroutine  INXDO. 

E.  MVCOM.  Moves  data  for  the  job  separator  record  and  the 
title  record- into  TTYBUF.  It  is  entered  with  the  first 
character  in  the  MQ  and  processes  bytes  until  an  end-of- 

- data  ($T)  is  encountered. 

F.  NMGET.  Sets  count  for  EBGET  to  process  three  Fieldata 
characters. 

G.  NMGET1 . Sets  count  for  EBGET  to  process  two  Fieldata 

characters . 

* 

H.  PFLASH.  Called  by  PPAGE  to  flash  a form.  When  entered, 
it  is  determined  if  the  FRMTAB,  which  contains  the  ad- 
dresses to  the  forms,  contains  all  zeros.  If  so,  the  pro 
gram  jumps  to  an  error  exit  (NO  FORM).  If  not,  the  addre 
is  obtained  and  FLASH  is  called  to  flash  the  form. 

I.  PPAGE . Called  to  determine  if  a form  is  to  be  flashed. 

If  any  characters  were  printed  on  the  page,  the  program 
goes  to  PFLASH.  If  not,  the  program  exits., 

J.  RDPT.  Saves  the  count,  MTCNT,  and  the  address  pointer, 
MTPTR,  in  the  buffer. 


reproducibility  OP  the 
original  page  is  poor 
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K.  RSPT.  Restores  MTCNT  and-  MTPTR  to  point  to  the  next  wore 
to  be  processed. 

L.  SETBYT.  Resets  the  flags  for  bytes  to  be  processed  by 
BYT3WD. 

M.  STARTX.  Called  by  INXOUT  to  clear  the  teletype  buffer; 
also  complements  and  stores  CHRCNT , the  character  count, 
in  the  locations  MCHCNT  and  IXXLEN. 

N.  TOP PAG . Resets  the  X and  Y coordinates  for  the  top^of  the 
new  page  and  for  the  next  form.  It  calls  SETXYS  to  actually 
set  the  X and  Y DAC ’ s . 

2.11.3.3  Constants  and  Variables 

A.  Internal 

1.  BUFFER.  Area  reserved  for  two  physical  records  of  180 
words  each. 

2.  CURBUF . Word  containing  the  address  of  the  buffer  cur- 
rently being  used. 

3.  CHRCNT.  Word  containing  the  number  of  characters  to  be 
output  for  indexing. 

4.  DBLADR.  Address  of  message,  DOUBLE, END  OF  FILE. 

5.  ERF LAG.  Flag  that,  when  set  to  zero,  indicates  that 
the  error  form  flag  is  to  be  checlced. 

6.  ERFMFL . Error  form  flag. 

7.  FLASSW.  Location  in  the  program  used  to  determine  if 
a form  is  to  be  flashed. 

8.  FO/LFTX.  Location  containing  the  beginning  raster 
point  (X  coordinate)  for  a form. 

9-.  FRMINP.  Contains  address  of  first  form. 
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10.  FRMNUM.  Contains  the  number  of  the  form  to  be,  flashed. 

11.  FRMPTR.  Address  of  form  to  be  flashed. 

12.  FRMTAB.  Six-word  table  with  each  word  giving  the  be- 
ginning address  of  a form. 

13.  LEFTXX.  Location  containing  the  beginning  X coordinate 
for  a line  print. 

14.  LENGTH.  Word  giving  half  the  total  buffer  size  (a  neg- 
ative number) . 

15.  LNCNT.  Word  containing  the  number  of- lines  that  are 
left  to  be  output  for  this  page  (negative  number) . 

16.  MCHCNT.  Location  containing  the  number  of  bytes  to 
process  for  indexing. 

17.  LNFDNM.  Number  of  scope  points  to  advance  to  the  next 
line  (negative) . 

18.  NEWTOP . Location  containing  the  Y coordinate  of  the 
line  to  be  output. 

19.  NEXBUF . Word  containing  the  address  of  the  next  buffer 
to  be  used. 

20.  RDCNT.  Location  used  to  save  MTCNT. 

21.  RDPTR.  Location  used  to  save  MTPTR. 

22.  - SAVI RM . Temporary  location. 

23.  SPCNUM.  Location  containing  the  raster  s.ize  for  the  X 
coordinate. 

24.  TEMP . Temporary  reserve  location. 

25.  TOPYY . Location  containing  the  beginning  raster  point 
(Y  coordinate)  for  all  pages. 
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26.  UBYTE . Location  used  to  store  bits  0-5  of  a particular 
word. 

27.  UBYT1 . Location  used  to  store  bits  6-11  of  a particu- 
lar word. 

28.  UBYT2 . Location  used  to  store  bits  12-17  of  a particu- 
lar word. 

29.  VCHAR.  Location  used  to  store  digits  temporarily  until 
all  numbers  have  been  processed. 

30.  XINDX.  Word  containing  the  character  on  which  the 
indexing  is  to  start. 

31.  YINDX.  Location  containing  the  line  number  that  is  to 
be  used  for  indexing. 

B.  External 

1.  PBUFSZ.  Length  of  a single  buffer. 

2.  MTCNT.  Location  containing  the  number  of  words  £et  to 
be  processed  (negative  number). 

3;  'MTPTR.  Location  containing  the  address  of  the  word  in 
the  buffer  to  be  processed  next. 

4.  CHDELX.  Word  used  to  set  the  delta  X. 

5.  CHDELY.  Word  used  to  set  the  delta  Y. 

6*  CHRSIZ . Word  containing  the  character  size. 

7.  RECPIN.  Word  containing  the  intensity. 

RECSPT.  Word  containing  the  spot  size. 

9.  TPOINT.  Location  containing  the  address  of  FICTB. 

•10.  MAXTRW.  Flag  that  when  set  to  zero  indicates  the  Title 
Record  has  not  been  processed. 
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.11.  INXSSW.  Flag  used  to  determine  if  indexing  has  been 
required. 

i 

12.  IFLASW.  Flag  used  to  determine  if  the  index  form  is  to 
be  flashed. 

2.11.3.4  Flow  Charts.  See  following  pages. 
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2.12  COMA  UNIVAC  494  PRINT  PROCESSOR  FOR  16  mm  FILM  (94UV16) 

2.12.1  Background 

A.  Author.  I.  J.  Morgan,  Aeronutronic  Ford  Corp. 

B.  Intent . Requested  when  a Univac  494  print  7-track  magnetic 
tape  has  been  submitted  for  data  to  be  output  to  microfilm 
(16  mm  film).  The  requirements  for  this  program  are  speci- 
fied in  SH-09864 . 

C.  Program  History 

1.  Production  Tape  Date.  6 June  1973 

2.  Author.  I.  J.  Morgan 

3.  Authorization.  EO-204F 

4.  Test  Cases.  TPS  (JSC  Form  1225)  No.  A] 

5.  Revisions . Reference  Appendix  B,  paragraph  B.12. 

2.12.2  Intro duction.  This  paragraph  describes  the  usage  and  de- 
sign of  the  Univac  494. Print  Processor  for  16  mm  film  (94UV16)  . 

The  MONITOR  and  associated  I/O  driven  routines  are  described  in 
SISO-TR531,  Vol.  I. 


2.12.2.1  Hardware  Requirements 
© FR80  with  12K  memory 

• 7-track  tape  unit 

• 16  mm  camera. 


2.12.2.2  Software  Requirements.  The  following  files  from  I. I. I, 
SYM  Directory  are  required. 


I II 109  1 1 1 18  5 
III166  I I 1163 
III164  III147 


I II 162  III187 

I I II 61  FLOAD 

III161  GO 
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2.12.2.3  Assembly  Parameters.  The  assembly  parameters  in  IIIKT 
should  be  set  for  the  proper  machine  configuration.  Assembly 
parameters  specific  to  the  94UVI6  Print  Processor  are.  as  follows 

A.  MTNOIS.  Defines  code  to  throw  away  short  noise  records. 

B.  7-TRAGK.  If  1,  indicates  data  will  be  coming  from  a 7- 
track  tape  drive. 

C.  ' MUMBLE.  If  1,  indicates  system  configuration  for  output 

to  the  teletype. 

D.  CAMNUM.  If  2,  indicates  the  16  mm  unsprocketed  camera  is 
being  used. 

E.  PT.YPE.  If  1,  ensures  compatibility  with  BCD  forms. 

F. '  ALLOW.  Defines  code  to  allow  form  loading  and  flashing. 

G.  NUMCAM.  If  6,  facilitates  camera  change  at  run  time  from 
t.he  16  mm  to  35  mm  camera. 

H.  TWOBUF . If  1,  gives  two  magnetic  tape  buffers  for  higher 
throughput. 

I.  'B-IGBUF . If  0,  allows  maximum  amount  of  features  with 
minimum  buffer  space. 

J.  MTPTR.  If  10,  assigns  the  active  buffer  address  to  auto- 
index register  10.  - 

K.  MTSIZE.  Magnetic  tape  buffer  size. 

L.  MTTSIZ.  Teletype  buffer  size. 

t 

M.  FTYPE . Indicator  -for  16  mm  camera. 

N.  DASHED.  If  1,  defines  dashed  lines. 

O. .  CIRCLE.  If  1,  allows  arcs. 

R.  UN  I VAC.  If  1,  defines  the  Univac  Fieldata  character  set. 
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2.12.2.4  Operator  Commands.  The  following  commands  are  available 
for  use.  and  can  be  modified. 


*TIME=2  ’58.6' 

* FRAME =0 
* CURRENT  PAGE=0 
*GO 

^CONTINUE 
*MAKE  FILM-1 
* CLEAR 
^ADVANCE 

*TAPE  TYPE  - 2,5  OR  8=8 

*BACK 

*PARI TY=1 

*USE=2 

* REWIND 

*SKIP- 

*TRY  AG AIN- 10 

•*FORM='  NULL  16FRM1  1-6FRM2  16FRM3  16FRM4 

* ERROR'  FORM-NO 

*HITS- CHARS, VEC,PTS=1, 1,1 

*FOCUS 

*CAMERA=2 

*PULLDOWN=6 

*LOAD~94UV16 

*ROTATION=0 


2-670 


SISO-TR531 
Vol.  II 


2.12.3  Analysis 

2.12.3.1  Major  Control  Section 

A.  Description.  This  program  is  requested  to  be  run  by  the 
operator  when  a 494  print  tape  is  to  be  output  to  16  mm 
film.  The  program  is  called  by  MONITOR  (III166)  through 
the  subroutine  PSTART.  Data  is  read  into  core  from  the 
tape  by  the  double  buffer  process  using  MTRINI , a subrou- 
tine in  III163.  A buffer  area  of  360  words  is  reserved  for 
this  read.  There  are  four  logical  records  of  45  words  each 
in  each  physical  record  of  180  words  (see  figure  2-2).  The 
camera  is  advanced  to  the  next  frame  to  assure  that  no  over 
writing  occurs. 

The  first  and  second  words  of  the  first  logical  record  are 
examined.  If  this  is  a job  separator  control  record,  the 
program'  goes  to  the  JOBREC  Routine.  If  not,  the  error  mes- 
sage CONTROL  ERROR  is  output  and  control  is  given  back  to 
MONITOR.  JOBREC  is  executed  when  a job  separator  record  is 
found.  The  job  information  to  be  output  on  the  first  two 
frames  is  stored  in  TTYBUF.  Then  JOBNM  outputs  this  infor- 
mation on  film  in  eyeball-sized  characters,  three  character 
per, frame.  The  ROTATE  Subroutine  in  III166  is  called  to 
restore  any  rotation  indication.  NEXPAG  is  called  to  flash 
any  forms,  advance  to  the  next  frame,  set  the  coordinates 
for  the  new  frame,  position  the  CRT  beam,  and  reset  the 
line  count  for  64  lines  per  page.  The  next  logical  record 
is  then  analyzed.  If  this  is  another  control  record,  the 
program  goes  to  the  appropriate  control  routine,  as  de-r 
scribed  below,  skipping  any  title  control  records.  Other- 
wise, -the  record  is  output  as  print  data  by  the  routine 
DATREC. 

FRMREC  is  called  when  a form  control  record  has  been  en- 
countered. The  form  number  is  found  in  the  first  byte  of 
the  third  word  of  this  record  by  the  subroutine  BYT3WD. 

It  is  stored  in  the  location  FRMNUM.  If  a form  was  re- 
quested greater  than  four,  the  message  ILLEGAL  FORM  is  out- 
put to  the  teletype,  and  the  program  returns  to  process  the 
next  record,  after  storing  a zero  in  FRMNUM.  If  the  form 
number  is  zero,  FLASSW  is  set  so  that  a form  will  not  be 
flashed. 
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When  an  image  orientation  record  is  encountered,  the 
ROTREC  Routine  decodes  the  record,  saves  the  setting  in 
locations  ROTCOM  and  SAVROT,  and  calls  ROTATE  to  appropri- 
ately set  the  DAC’s  recording  in  CINE  or  COMIC  mode.  The 
subroutines  HEADER'  and  TOPPAG  are  called  to  reset  param- 
eters for  the  new  mode. 

DATREC  is  called  when  print  data  is  found.  The  latest  X 
and  Y coordinates  are  set  by  a call  to  the  SETXYS  Subrou- 
tine. A total  of  132  characters  are  output.  The  line  skip 
number  is  found  in  the  last  word  of  the  logical  record. 

The  number  of  carriage  returns  executed  is  equal  to  this 
number  plus  one,  with  the  line  count  number,  LNCNT,  being 
decremented  each  time.  When  64  lines  of  data  have  been 
output,  a flag  is  set  to  cause  the  forms  to  flash,  and  the 
subroutine  NEXPAG  is  called  to  flash  the  forms,  advance 
the  page,  and  reset  the  X and  Y coordinates  for  the  new 
page. 

After  processing  each  data  record,  the  program  returns  to 
pick  up  the  next  logical  record.  The  program  continues 
until  an  end-of-job,  end-of-tape  control  record. is  encoun- 
tered. The  end-of-job,  end-of-tape  control  record  is  en- 
countered when  all  the  jobs  on  a single  or  multiple  tapes 
have  been  processed.  The  ENDALL  Routine  is  called  to  pro-, 
cess  this  record.  Flags  are  set  to  cause  the  DOUBLE  END- 
OF-FILE  message  to  be  output.  NEXPAG  is  called  to  flash 
the  form  on  the  last  page,  if  one  is  present,  and  to  finish 
the  last  page.  The  program  then  goes  to  the  subroutine 
MTEOFF  which  goes  to  MONITOR  and  types  out  DOUBLE-END-OF- 
FILE . 

B.  Input/Output 

1.  Input . .Data  is  input  from  a 7-track  tape  drive  in 
logical  units  of  45  itfords  each  and  in  physical  records 
of  180  words  each. 

2.  Output . Output  of  data  is  to  16  mm  or  35  mm  film. 

Each  frame  contains  one  page,  having  a maximum  of  64 
lines  per  page  with  a maximum  of  132  characters  per  line 
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3.  Error  Message  Output 

a.  CONTROL  ERROR.  This  is  output  when  the  first  logi 
cal  record  of  a job  is  not  a control  record. 

b.  ILLEGAL  FORM.  This  is  output  when  a form  number 
greater  than  four  has  been  requested. 

c.  NO  FORM.  This  is  output  when  the  form  number  is 
equal  to  zero  and  the  FLASSW  has  not  been  properly 
set  to  prevent  the  logic  from  reaching  this  point. 


Linkages 


Routine 

Program 

Calling 

Sequence 

MTLAC 

. III163 

JMS  MTLAC 

MTRINI 

I I 1163 

JMS  MTRINI 

FRSPIC 

I I I 166 

FRSPIC  ' 

KYBLIS 

IIIlf>6 

JMS  KYBLIS 

MCRLF 

III166 

■ JMS’  MCRLF 

MMESSG 

III166 

JMS  MMESSG 

MONINT 

III166 

JMS  MONINT 

MONOUX 

I I 1166 

-JMP  MONOUX 

MTEOFF 

II 1166 

JMS  MTEOFF 

NEXPIC 

III166 

NEXPIC 

ROTATE 

III166 

JMS  ROTATE 

SETOMU 

III166 

SETOMU 

SETPLS 

II 1166 

SETPLS  - 

SETXYS 

III166 

JMS  SETXYS 

FLASH 

III187 

LAC  X-COORDINAin- 
LAC  Y- COORDINATE 
LAC  (FORM  ADDRESS] 

PSTLL 

I I 1166 

DAC  FRMPTR 

FLASH 

PSTLL 

DKWCHR 

III162 

LAC  (CHARACTER) 

XXXXXX 

III162 

JMS  DRWCHR 
LAC  X- COORDINATE 
LAC  Y- COORDINATE 
LAC .X- COORD 

yjyyyy 

III162 

XXXXXX 
LAC  Y-COORD 

ROTTST 

III187 

YYYYYY 
JMS  ROTTST 

SISO-TR531 
Voi . ii  ; 
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A. 


2.  Internal 


Routine 


Calling 

Sequence 


BYT3WD 

JMS  BYT3WD 

LAC  TEMP  (NO.'  OF  CHAR) 

. EBGET 

JMS  EBGET 

HEADER 

JMS  HEADER 

LAC  MQ 

MVCOM 

JMS  MVCOM 

NMGET 

JMS  NMGET 

NMGET1 

JMS  NMGET 1 

P FLASH 

PFLASH 

PPAGE 

PPAGE 

RDPT 

JMS  RDPT 

RSPT 

JMS  RSPT 

SETBYT. 

JMS  SETBYT 

TOPPAG 

TOPPAG 

JOBNM 

JMS  JOBNM 

NEXPAG- 

NEXPAG 

FRF LAS 

FRFLAS 

Subroutines 

BYT3WD.  Used  to  access  one  particular  byte  in  a wore. 

Prior  to  JBYT3WD  being  called  the  first  time,  SETBYT  has 
been  called  to  set  flags  to  indicate  that  none  of  the  three 
bytes  -have  yet  been  processed.  When  none  of  the  flags  are 
set,  the  next  word  in  the  buffer  is  obtained.  The  word  is 
divided  into  bytes  with  bits  0-5  being  stored  in  word  loca- 
tion UBYTE,  bits  6-11  in  word  location  UBYT1 , and  bits 
12-17  in  UBYT2.  UBYTE  is  then  passed  to  the  calling  rou-. 
tine.  Thp  next  time  BYT3WD  is  called,  UBYT1  will  be  passed, 
and  on  the  third  call,  UBYT2  will  be  passed  unless  SETBYT 
has  been  requested  to  reset  these  flags. 


EBGET.  Called  by  NMGET  and  NMGET1,  which  store  the  number 
of  bytes  to  be  converted  in  the  location  TEMP.  EBGET  calls 
BYT3WD  to  obtain  each  byte.  The  byte  is  converted  from 
Fieldata  to  binary  and  added  to  the  last  digit  converted, 
if  this  is  not  the  first.  EBGET  continues  to  process  bytes, 
until  all'  the  bytes  have  been  converted. 
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C.  HEADER.  Called  at  the  beginning  of  a job  to  set  the  X 
delta,  the  Y delta,  the- character  size,  the  intensity, 
and  the  spot  size. 

D.  MV COM.  Moves  data  for  the  job  separator  record  and  the 
title  record  into  TTYBUF.  It,  is  entered  with  the  first 
character  in  the  MQ,  and  processes  bytes  until  a slash  is 
encountered. 

E.  NMGET.  Sets  count  for  EBGET  to  process  three  Fieldata  char- 
acters. 

F.  NMGET1.  Sets  count  for  EBGET  to  process  two  Fieldata  char- 
acters. 

G.  PFLASH.  Called  by  ffauE  to  flash  the  null  and  any  requested 
form  if  loaded.  When  entered,  it  is  determined  if  the 
FRMTAB,  which  contains  the  addresses  to  the  forms,  contains 
all  zeros.  If  so,  the  program  jumps  to  an  error  exit  (NO 
FORM).  If  not,  the  address  is  obtained  and  FLASH  is  called 
to  flash  the  form. 

H.  PPAGE.  Called  by.  NEXPAG  to  determine  if  a form  is  to  be 
flashed.  If  any  characters  were  printed  on  the  page,  the 
program  goes  to  PFLASH.  If  not,  the  program  exists. 

I.  RDPT.  Saves  the  count,  MTCNT,  and  the  address  pointer, 
MTPTR,  in  the  buffer. 

J.  RSPT.  Restores  MTCNT  and  MTPTR  to  point  to  the  next  word 
to  be  processed. 

K.  SETBYT.  Resets  the  flags  for  bytes  to  be  processed  by 
BYT3WD. 

L.  TOPPAG.  Resets  the  line  number  to  1,  resets  the  page  count 
to  default  size,  and  resets  the  X and  Y DAC’s  to  their 
starting  page  position, 

M.  JOBNM.  Outputs  the  six  characters  of  job  information  in 
the  teletype  buffer  to  film  in  eyeball-sized  characters, 
three  characters  per  frame. 
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N.  NEXPAG.  Flashes  all  appropriate  forms  (including  the  cut- 

mark)  , advances  the  camera  to  the  next  page  (NEXPI.C)  , and 

resets  all  page  parameters  (TOPPAG) . 

2. 12. 3. .3  Constants  and  Variables 
A.  Internal 

1.,  BUFFER.  Area  reserved  for  two  physical  records-:of  180 
words  each. 

2.  CURBUF.  Word  containing  the  address  of  the  buffer  cur- 
rently being  used. 

3.  DBLADR.  Address  of  message  DOUBLE  END  OF  FILE. 

4.  ERFLAG.  Flag  that,  when  set  to  zero,  indicate 
the  error  form  flag  is  to  be  checked. 

5.  ERFMFL.  Error  form  flag. 

6.  FLASSW.  Location  in  the  program  used  to  determine  if 
a form  is  to  be  flashed. 

7 . FXLEFT.  Location  containing  the  beginning  raster  poiUw 
(X  coordinate)  for  a form. 

8.  FYTOP.  Location  containing  the  beginning  raster  point 
(Y  coordinate)  for  a form. 

9.  FRMINP.  Contains  address  of  first  form. 

10.  FRMNUM.  Contains  the  number  of  the  form  to  be  flashed. 

11.  FRMPTR.  Address  of  form  to  be  flashed. 

12.  FRMTAB . Six-word  table  with  each  word  g.iving  the  be- 
ginning address  of  a form. 

LEFTXX-.  Location  containing  the  -beginning  X .coordinate 
■ for  a line  of  print. 
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14.  LEFTX.  Location  containing  the  beginning  X coordinate 
for  a line  of  print. 

LENGTH.  Word'  giving  half  the  total  buffer  size  (.a. 
negative  number). 

16.  LNCNT.  Word  containing  the  number  of  lines  that  are 
left  to  be  output  for  this  page  (negative  number) . 

17.  LNFDNM.  Number  of  scope  points  to  advance  to'  the  next 
line  (negative). 

18.  NEWTQP.  Location  containing  the  Y coordinate  of  the 
line  to  be  output. 

19.  NEXBUF.  Word  containing  the  address  of  the  next  buffe 
to  be  used. 

20.  RPC NT . Location  used  to  save  MTCNT. 

21.  RDPTR.  Location  used  to  save  MTPTR. 

22.  SAV12.  Temporary  save  location  used  in  subroutine 
JOBNM. 

23.  SAV13.  Temporary  save  location  used  in  subroutine. 
JOBNM. 

24.  SAVIRM.  Temporary  location. 

25*  SAVROT.  Location  containing  a zero  or  one  to  indicate 
present  rotation. 

26.  SPCNUM. ' Location  containing  the  raster  siie  xoi  me  X 
coordinate. 

27.  TEMP.  Temporary  reserve  location. 

28.  TOPYY . Location  containing  the  beginning  raster  point 
(Y  coordinate)  for  all  pages. 
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B. 


2.12. 


29.  TOPY.  Location  containing  the  beginning  raster  point 
CY  coordinate)  for  all  pages. 

30.  UBYTE.  Location  used  to  store  bits  0-5  of  a particular 
word. 

31.  UBYT1 . Location  used  to  store  bits  6-11  of  a' particular 
word. 

'32.  UBYT2 . Location  used  to  store  bits  12-17  of  a particu- 
lar word. 

33.  VCHAR.  Location  used  to  store  digits  temporarily  until 
all  numbers  have  been  processed. 

External 


1.  PBUFSZ.  Length  of  a single  buffer. 

2.  MTCNT.  Location  containing  the  number  of  words  yet  to 
be  processed  (negative  number). 

3*  MTPTR.  Location  containing  the  address  of  the  word  in_ 
the  buffer  to  be  processed  next. 

4.  , CHDELX.  Word  used  to  set  the  delta  X. 

5.  CHDELY.  Word  used  to  set  the  delta  Y. 

6.  CHS I Z.  Word  containing  the  character  sis 

?.  RECPIN.  Word  containing  the  intensity. 

/ 

•8>.  • RECSPT.  Word  containing  the  spot  size. 

9.  FCXP.  Contains  beginning  X coordinate  of  character  to 
be  drawn  on  a frame  in  the  subroutine  DRWCHR. 

10.  FCYP.  Contains  the  beginning  Y coordinate  of  character 
to  be  drawn  by  subroutine  DRWCHR. 

3..4  Flow  Charts.  See  following  pages. 
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2.13  COMA  LAC IE  STATUS  MODULE  (PFC , COMA) 

2.13.1  Background 

A.  Author.  J.  E.  Bennett,  Jr.,  Aeronutronic  Ford  Corp. 

B.  Intent.  Stores  status  information  on  the  disk  when  re- 
’ quested  to  do  so  by  the  calling  program.  Also  at  the 

request  of  the-  calling  program,  this  information  can  be 
dumped  to  tape. 

C.  Program  History 

1.  Production  Tape  Date.  7 April  1975 

2.  Author.  J.  E.  Bennett,  Jr. 

3.  Authorization.  TIRF  No.  2791 

4.  Test  Case.  TPS  (JSC  Form  1225)  No.  A16 

5. -  Revisions . Reference  Appendix  B,  paragraph  B.13.  ■ 

2.13.2  Introduction 

2.13.2.1  Hardware  Requirements 
© FR80  with  disk 

© 9-track  tape  drive. 

2.13.2.2  Software  Requirements.  III109  and  III166 
2.13.2.3/  Assembly  Parameters.  None. 

2.13.2.4  Operator  Commands 

A.  DUMP  STATUS  TAPE.  Causes  status  tape  to  be  written. 

B.  WIPE  OUT  STATUS  BLOCKS-.  Clears  status  area  on  disk. 
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2.13.3  Analysis 

2.13.3.1  Major  Control  Section 

A.  Description.  The  LACIE  status  routines  stack  33-word  (66- 
byte)  sample  segment  entries  into  a disk  area  of  250 
blocks.  This  ,disk  area  is  reserved  for  this  function  and 
protected  from  the  system.  The  250-block  area  can  hold 
1750  sample  segment  entries.  All  necessary  address  pointers 
are  kept  on  the  disk  and  are  independent  of  program  loading 
and/or  reloading.  The  core  address  of  the  newest  sample 
segment  entry  is  provided  by  the  calling  program.  When 
called,  the  status  routines  look  up  the  necessary  addresses 
on  the  disk,  stores  the  new  entry,  and  exits.  Control  is 
returned  to  the  calling  program  if  no  disk  error  occurs. 

Upon  an  error,  control  is  returned  to  MONITOR  with  an  error 
message.  When  requested  by  the  calling  program,  the  entire 
contents  of  the  status  area  is  dumped  from  disk  to  tape. 

Each  sample  segment  entry  is  one  physical  record  on  tape. 

B.  Input/Output 

Input . Data  is  provided  by  calling  program  and  in  core 
memory. 


2.  Output . Data  is  to  9-track  tape  in  66-byte  records. 


Linkages 

1.  External 

Rout ine 

Program 

Sequence 

t 

MONINT 

III166 

JMS  MONINT 

MONOUT 

III166 

JMP  MONOUT 
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- Routine 

Calling 

Sequence 

STATUS 

JMS 

STATUS 

DREAD 

JMS 

DREAD 

DWRITE 

JMS 

DWRITE 

FINDIR 

JMS 

■FINDIR 

DRDBLK 

JMS 

DRDBLK 

INSERT 

JMS 

INSERT 

DCLEAR 

JMP, 

DCLEAR 

DDMT 

JMP 

DDMT 

DMTGO 

JMS 

DMTGO 

DCKRDY 

JMS 

DCKRDY 

DREW  I 

JMS 

DREWI 

DMTWRT 

JMS 

DMTWRT 

DBKSP 

JMS 

DBKSP 

DRDEOF 

JMS 

DRDEOF 

2.13.3.2  Subroutines 

A.  DBKSP-.  Backspaces  magnetic  tape  one  record. 

B.  ■ DCKRDY.  Checks  to  see  if  tape  unit' is  ready.  Does  not 

exit  until  tape  unit  is  ready,. 

C.  DCLEAR.  Clears  all  status  information  on  disk. 

D.  DDMT.  Dumps  all  status  information  from  disk  to  tape. 

Each  sample  segment  entry  is  one  record  on  tape.  The  data 
is  ended  with  a double  EOF. 

E.  DMTGO.  Loads  tape  command  found  in  DTCMD  and  starts  tape 
controller. 

F.  DMTWRT.  Writes  one  record  on  tape.  Calls  DMTGO. 

G.  DRDBLK.  Loads  disk  command  found  in  DCMWRD  and  starts- 
disk  controller. 

H.  DRDEOF.  Checks  the  double  EOF  to  make  sure  that  it  was 
correctly  written. 
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I.  DREAD.  Sets  up  to  read  from  disk  and  calls  DRDBLK. 

J.  DREW I . Rewinds  the  magnetic  tape  drive. 

K.  DWRITE.  Sets  up  to  write  on  the  disk  and  calls  DRDBLK. 

L.  FINDIR.  Finds  the  status  area  on  the  disk  from  the  infor- 
mation in  the  master  and  user  directories  on  the  -disk. 

M.  INSERT.  Places  a sample  segment  entry  into  the  proper  space 
in  a disk  block.  There  are  seven  entries  per  block. 

N.  STATUS.  Reads  the  current  block  from  the  disk,  calls  INSERT 
to  add  the  new  data,  and  writes  the  block  back  on  the  disk. 

2.13.3.3  Constants  and  Variables 

A.  Internal 

1.  DBFAD.  Contains  address  of  data  to  be  saved  on  disk. 

2.  DCMWRD.  Contains  current  disk  command  (WRITE  or  READ). 

3.  - DEOF.  . Contains  negative  zero  if  writing  or  reading  an 

EOF;  otherwise  it  is  zero. 

4.  DIADRS. . Address  of  first  status  block  on  disk  is  placed 

here  by  FINDIR.  • 

5.  DLASB.  Contains  current  disk  block  address. 

6.  DLASBF.  Contains  current  buffer  position* 

7.  DP ASS.  Contains  1 if  this  is  the  first  pass  (WRITE 
TAPE) ; contains  2 if  this  is  the  second  pass  (READ/ 
COMPARE)  .. 

8.  DTAP.  Contains  unit  number  of  tape  drive. 

9.  DTCMD.  Contains  current  tape  command  for  DMTGO,. 
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10.  DWCD.  Contains  WRITE  command  for  first  pass  and  READ/ 
COMPARE  for  second  pass. 

11.  RPTIN.  Contains  number  of  retries  .to  be  allowed  for 
tape  errors. 

12.  RPTOUT.  Contains  the  number  of  skips  to  be  allowed 
on  write  errors. 

B.  External . DATCOM  contains  the  tape  unit  number. 

2.13.3.4  Flow  Charts.  See  following  pages. 
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2.14,  COMA  LACIE  STATUS  DISPLAY  (REVEAL) 

2.14.1  Background 

'A.  Author.  J.  E.  Bennett,  Jr.,  Aeronutronic  Ford  Corp. 

B.  Intent.  Displays  on  the  monitor  the  status  information  cur 
rentl-y  written  on  the  disk.  This  allows  the  operators  to 
determine  which  jobs  were 'run  successfully,  not  run  success 
fully,  or  not  run  at  all. 

C . Program  History 

1;  Production  Tape  Date.  28  May  1975 

2.  Author.  J.  E.  Bennett,  Jr. 

3.  Authorization.  JSC  Form  994,  TIRF  No.  1700 

4.  Test  Case.  TPS  (JSC  Form  1225)  No.  A15 

5.  Revisions . Reference  Appendix  B,  paragraph  B.14 

2.14.2  ' Introduction 

2.14.2.1  Hardware  Requirements 
® FR80  with  disk 

e 9-track  tape  drive. 

2.14.2.2  Software  Requirements 

III109 
I I I 164 
DISK  STATUS 

2.14.2.3  Assembly  Parameters 

A.  BIGBUF.  If  0,  allows  full  monitor  with  dispatch  table  dis- 
play. 


III166 
III164  FILM 
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B.  7-TRACK.  If  0,  pre.v-ents.  assembly  of  7-track  tape  code. 

C.  9 -TRACK.  If  0,  prevents  assembly  of  9-track  tape  code.  . 

D.  CAMNUM.  If  0,  prevents  assembly  of  camera  supervision 
. code. 

E.  NOFOCS . If  0,  prevents  insertion  of  focus  pattern. 

F.  FONT.  If  0,  selects  I. I. I.  film  font.  - 

G.  FASTTY.  If  1,  inserts  program  interrupt  teletype  controls. 

H.  EBCDIC.  If  1,  inserts  EBCDIC  character  code. 

2.14.2.4  Operator  Commands 

* REVEAL  STATUS  INFO 
*WIPE,  OUT  STATUS  BLOCKS 
*DUMP  STATUS  TAPE 


2.14.3  Analysis 


2. 14. .3.1  Major  Control  Section 


A.  Description.  At  location  BEGIN,  the  first  three  blocks  of 
the  status  area  are  read  into  core.  The  prog-ram  then 
enters  a loop  which  flashes  the  headers  and  then  Flashes  • 
the  three,  data  blocks,  one  line  at  a,  time-.  There'  are  seven 
entries  per  block,  so  21  entries  are  displayed  on  the 
monitor.  The  program  remains  in-  this  loop  until  inter- 
rupted -by  the  operator.  The  operator  can  have  the  program 
read  the  next  block  or  back  up  one  block  (if  not  already- 
at  the  beginning) . The  new  block  is  inserted  into  position 
three,  the  other  blocks  move  up,  and  the  first  block  moves 
off  the  screen.  The  display  rotates  seven  entries  at  a 
time . 
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B . Input/Output 

1.  Input . Input  data  is  already  on  the  disk. 

2.  Output.  Output  data  is  in  the  form  of  a visual  display 
to  the  monitor  or  to  9 -track  tape. 

C.  Linkages 
1.  External 

Routine 


FINDIR 
MDBUG 
MONINT 
ME  RASE 

2 . Internal 

Routine 


CHEC 
HEADPT 
DISBLK 
GETBLK 
LINE 

2.14.3.2  Subroutines 

A.  CHE Cl  Checks  for  keyboard  entry  from  operator  and  takes 
proper  action  if  required. 

B.  DISBLK.  Controls  the  display  of  one  block  of  data  and  calls 
LINE  to  display  each  line. 

C.  GETBLK.  Reads  a block  from  disk. 

D.  HEADPT.  Plots  the  header  for  the  display. 

E.  LINE.  Plots  one  sample  segment  entry  as  one  line  of  data. 


Calling 

Program 

Sequence 

DISK  STATUS 

JMS  FINDIR 

III166 

JMS  MDBUG 

III166 

JMS  MONINT 

III166 

JMS  ME RASE 

Calling 

Sequence 

JMS  CHEC 
JMS  HEADPT 
JMS  DISBLK 
JMS  GETBLK 
JMS  LINE 
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2.14.3.3  Constants  and  Variables 

A.  BASEPT.  Identifies  message  pointers. , for  production  com- 
pletion code  messages. 

B.  BLKCNT . Contains  the  number  of  lines  remaining  to  be  dis 
played  in  a block. 

C.  BLQCK1 . Pointer  to  the  first  block  to  be  displayed. 

D.  BL0CK2 . Pointer  to  the  second  block  to  be  displayed. 

E.  BL0CK3.  Pointer  to  the  third  block  to  be  displayed. 

F.  BLOK.  Pointer  to  the  current  block  to  be  displayed. 

G.  DEADLN;.  A dummy  line  of  zero  entries  used  as  filler. 

H.  PS CAD.  Contains  the  disk  address  of  a block  to  be  rea< 

I.  HEADER.  The  first  location  of  the  header  data. 

J.  LINEPT.  Contains  the  address  of  the  current  line. 

K.  MEMAD.  Contains  the  core  address  of  a disk  block  toi'be 
read. 

L.  NEXT.  Points  to  the  address  of  the  next  block  on  the 
disk. which  can  be  displayed. 

M.  POINT-R.  Table  which  contains  the  disk  addresses  of  the. 
data^- blocks  on  the  disk. 

N.  TABEL.  Locates,  the  monitor  dispatchiitable  for  the  ASR 
MONITOR. 

0„  XDE . X delta  for  spacing. 

P;  XST.  X starting  position  on  screen. 

Q.  YDE . . Y delta  for  spacing. 

R.  YST . Y starting  position  on  screen. 

2.14.3.4  Flow, Charts.  , See  following  pages. 
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2,-15  COMA  LACIE  PRINT  PROCESSOR  FOR  105  mm  FICHE  (LACPRT) 
2.15.1  Background 

A.  Author.  F.  C.  Ashton,  Aeronutronic  Ford  Corp. 

B.  Intent.  Requested  when  LACIE  print  is  to  be  output  to 
105  mm  fi'che. 

C.  Program  History 

1.  Production  Tape  Date.  1 April  1975 

2.  Author.  F.  C.  Ashton 

3.  Authorization.  NASA/JSC  Form  994,  Transmittal/ 
Information  Request  Form  No.  2791 

4.  Test  Case.  TPS  No.  A16 

5.  Revisions . Reference  Appendix  B,  paragraph  B.15 


-2.15.2  Introduction 
2.15.2.1  Hardware  Requirements 
© FR80  with  12K  memory 
© 9-track  tape  unit 
© 105  mm  fiche  camera 


9 Disk. 

2.15.2.2  Software  Requirements.  The  following  files  found  in 
I.I.I.' s SYM  Directory  are  required: 


PRINTF  COM' 
III109 
III 166 
DISK  STATUS 


III164 
III163 
III185 
II 1147 


III162  III186 

III161  . ASROUT 

III188 
I I 1161  GO 


™ ^ VAGE  IS  m 
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2. 15. 2..3  Assembly  Parameters.  The  asse] 

should  be-  set  for  the  proper  machine  configuration.  Assembly 
parameters  specific  to  LACPRT  program  are  as  follows. 

A.  TWOBUF.  If  1,  indicates  double  buffer. 

B.  FASSTTY.  If  i,  defines  program  interrupt  teletype  controls. 

C.  PTYPE.  If  3,  indicates  EBCDIC  forms. 

D.  FONT.  If  0,  indicates  standard  £.1.1.  character  font-. 

j 

E.  TAPELB . If  1,  indicates  standard  IBM  tape  labels. 

F.  NASA.  If  1,  indicates  special  characters  used  at  JSC. 

G.  EBCDIC . If  1,  indicates  standard  IBM  EBCDIC  character  se^ 

H.  LQCASE . If  1,  indicates  lower  case  character  set. 

I.  BIGBUF.  If  0,  allows  maximum  amount  of  features  with  min 
mum  buffer  space. 

J.  MTS I ZE . Defines  length  of  system  tape  buffers  (513  words 

K.  MTTSIZ.  Defines  length  of  teletype  buffer  (192  words) . 

L.  MANYUP . Indicates  that  page  count  is  printed  with  frame 
count  when  the  accounting  information  is  output  to  the 
teletype. 

M.  FTYPE . Indicates  the  fiche  camera. 

N.  DSKMON.  Indicates  the  disk  monitor  routine  to  be 
assembled. 

O.  NEXPAG . Equivalent  to  NEXPIC  Routine. 

P.  7-TRACK.  If  0,  indicates  no  7-track  code  to  be  assembled 


2-736 


SISO-TR531 
Vol . II 


Q.  9 -TRACK.  • If  1,  indicates  9-track  code  to  be  assembled. 

R.  MUMBLE . If  1,  indicates  that  during  assembly  time  print 
commands  are  output  to  TTY. 

S.  ALLOW.  Defines  number  of  words  for  save  index  information 
(2123)  . 

T.  TITLE . If  1,  indicates  title  code  to  be  assembled. 

U.  FINDEX.  If  1,  indicates  index  code. 

V.  NDXBLK.  If  7,  indicates  number  of  words  per  index  entry. 

2*15.2.4  Operator  Commands 
* 

*TIME=4 : 52 ' 2 . 6" 

*FRAME=0 
* CURRENT  PAGE=0 
*G0 

^CONTINUE 
*TITLE 
*END  JOB 
*MAKE  FILM=1 
*CLEAR 
^ADVANCE  / 

*BACK 
*USE=1 
* REWIND 
*SKIP 

*TRY  AGAIN=10 
^STANDARD  LABELS^YES 
*UNLABELLED=NO 
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Voi . ir 


•*FORM=  - NUL10  5 
* INDEX-  FORM=  LACIND 
*ERROR  FORM=NO 

j 

*PITCH-MARGIN=  35 , 52 
*SI  ZE  OF  TITLE=7175,6150 
^IMAGES  PER  FICHE=16,14 

-*H  ITS -CHARS,  VEC,PTS,  TITLE,  CMARK=1, 1,1, 2,1 
* FOCUS 

*LOAD=LACPRT 

*ROTATION=0 

*WI PE  OUT  STATUS  BLOCK 

*DUMP  STATUS  TAPE 

^STATUS  JOBS  (0=YES , 1=N0)  = 0 

^SEARCH  TITLE (0=NO,1=YES,  TITLE  NO.) =0,0 

^TERMINATION  DUE  TO  ERROR 

*NEX,T  TITLE 

2.15.3  Analysis 

2.15.3.1  Major  Control  Section 

A.  Description.  Control  is  given  to  the  LACPRT  Program  at 
location  BEGIN.  The  program  clears  the  status  buffer', 
STABUF  to  EBCDIC  spaces.  The  title  number,  BSTNO , and 
total  fiche  per  title,  BFICTOT,  are  set  to  zero.  A (-1) 
is  stored  in  location  RECRT  for  record  number.  A call  is 
made  to  subroutine  INSET6  to  set  the  print  intensity. 

Then  a' call  is  made  to  the  TOPPAG  Subroutine  to  set 
the  lines  per  page  and  the  X and  Y coordinates.  The 
Tape  Handler  Subroutine  is  initialized  by  calling 
MTRINI.  The  fiche  fcontroller . is  initialized,  and  the 
fiche  advances  one  blank  fiche.  Then  a call  is  made 
to  input  the  calendar  date  and  calculate  the  Julian 
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date  and  to  TTAPNO  to  accept  the  tape  number.  The  spacing 
and  rotation  is  set  by  calling  SETPLS.  The  main  print  Icop 
consists  of  subroutines  RECGET,  CKCOM,  ACODE ' and  RRTLN. 

The  RECGET  Subroutine  gets  one  logical  record  at  a time 
from  the  tape  handler.  The  CKCOM  Subroutine  checks  for 
COM  control  records  and  processes  the  COM  controls.  ACODE 
translates  the  first  character  of  print  image  record  as 
carriage  control.  The  PRTLN  Subroutine  outputs  the  print 
image  to  fiche.  • 

Input/Output 

1.  Input  data  is  input  from  a 9-track  tape  drive.-  the 
tape  can  be  standard  IBM  label,  nonstandard  label  or 
unlabeled.  The  data  is  in  a fixed-length  record  for- 
mat (blocked)  with  931  eight-bit  bytes  per  block.  Each 
logical  record  will  be  133  bytes  in  length.  A logical 
record  contains  a COM  control  record  or  print  image 
record.  A COM  control  record  can  be  a job  separator  • 
record,  a title  record,  or  an  indexing  record.  A print 
image  record  is  133  bytes,  with  the  first  byte  contain- 
ing the  standard  ASCII  carriage  control  and  last  132 
bytes  containing  EBCDIC  characters. 

2.  Output . Output  of  data  is  to  105  mm  fiche.  The  fiche 
contains  16  rows  by  14  columns;  the  first  row  of  data 
is  title  information. 

3.  Tape  Output.  The  status  of  each  job  is  output  to  tape. 
The  status  contains  the  job  ID,  the  number  of  fiche 
output,  the  job  number,  and  date  of  run.  .Each  status 
record  is  66  bytes  long. 

4 . Message  Output 

a.  TITLE  ERROR.  This  is  output  to  the  teletype  when 
the  title  record  is  in  error. 

b.  TITLE  INFORMATION.  This  is  output  to  the  teletype 
along  with  JOB  ID  NO. 
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c.  ENTER'  TAPE  NUMBER.  This  is  output  to  the  teletype 
and  the  machine  waits  for  an  answer,  giving  the 
source  tape  number.  The  operator  types  up  to  six 
characters  of  information; 

d.  ENTER  DATE . This  is  output  to  the  teletype,  and 

- the  machine  waits  for  an  answer,  giving  the  calen- 
dar date.  The  operator  types  up  to  six  characters 
of  information  in  the  format  MM/DD/YY. 


C.  Linkages 


1.  External 


Routine 

Program 

ACCTG 

III166 

FCFIN 

III166 

ADVAN 

FC7CLR 

III166 

ADVAN 

FICTAP 

I I 1188 

FRSPIC 

III166 

ADVAN 

GETIN 

I I 1161 

GETNUM 

1 1 1161 

KYBLIS 

III166 

MDONEX 

1 1 1 1 6 6 

INVAN 

MDOUT 

III166 

MCRLF 

III166 

ADVAN 

MMESSG 

III166 

ADVAN 

MONOUT 

III166 

INVAR 

MTRINI 

I I.I1 63 

MTLAC 

III163 

NEXPIC 

III166 

ADVAN 

MNBRIT 

III166 

PSTLL 

1 1 1 1 6 6 

ROTATE 

Ilil66 

SETPLS 

III166 

SETXYS 

III166 
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Internal 

Routines 

ACODE 

DDST 

JULDAT 

TITNX 

BLDREC 

ERRTRM 

LACEOV  ' 

TOPPAG 

CARCON 

FI COUNT 

LACEND 

TOTTY 

CKCOM 

FRF LAS 

LEAP 

TTAPNO 

CHRGET 

GTFNDX 

MV  COM 

TTCHAR 

CHROUT 

INSET3 

PRTLN 

TTTINT 

COMEND 

INSET6 

RECGET 

TTTPUT 

COMOST 

I NX  CK 

STNQYE 

TTTWD 

CONVER 

JOBERP 

STNENO 

TYPFRX 

DDCL 

JOBSTU 

STUJOB 

2.15.3.2  Subroutines 

A.  ACODE . Translates  ASCII  carriage  control  (EBCDIC  character) 
to  line  spacing  as  follows. 

e + = overprint 

© Space  = space  one  line 

o 0 = space  two  lines 

© - = space  three  lines 

e 1 = skip  next  frame 

® Any  other  character  = space  one  line. 

This  subroutine  sets  the  parameter  CARCNT  (carriage  counts, 
or  the  right  number  of  line  spacings) . When  the  carriage 
control  is  1,  the  parameter  LNCT  (lines  per  frame)  is  set 
to  -1.  Calling  sequence:  JMS  ACODE/ CARRIAGE  CONTROL  IN  AC. 

B.  BLREC.  Builds  the  status  buffer  from  the  title  stored  in 

the  title  area.  When  the  switch,  BLDSW , is  set  to  a NOP, 
the  status  is  not  built.  When  BLDSW  is  set  to  a SKP,  the 
status  buffer  is  built.  Calling  sequence:  JMS  BLREC. 
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C.  CARCON.  Does  the  line  spacing  for  the  frame  of  data.  The 

subroutine  is  called  after  the  ACODE  Subroutine.  The  line 
spacing  is  contained  in  CARCNT.  This  subroutine  counts  the 
lines  per  frame  in  LNCT  and  does  a frame  advance' when  a 
total  of  64  lines  is  reached.  Calling  sequence:  JMS  CARCON 

D.  CKCOM.  Processes  all  COM  control  records  (i.e.,  separator 

records,  title  records  and  index  records).  Calls  MVCOM 
Subroutine  to  move  separator  and  title  records  into  the 
title  area,  and  appends  the  tape  number  to  the  separator 
information.  The  routine  does  not  return  control  to  the 
main  program  until  a print  image  (non-COM  control  record) 
is  detected.  Calling  sequence:  JMS  CKCOM 

E.  CHRGET.  Gets  one  character  at  a time  from  tape  buffer. 

The  character  is  returned  to  AC  and  MQ.  Calling  sequence: 
JMS  CHRGET 

F.  CHRPUT.  Stores  a character  at  a time  in  the  status  buffer. 
Index  register  12  contains  the  address  of  word  that  charac- 
ter is  to  be  stored.  The  switch  SWWCH  tells  in  which  part 
of  the  word  to  store  the  character  (NOP  in  the  .second  half, 
SKP  in  the  first  half).  Calling  sequence: 

LAC  CHARACTER 
JMS  CHRPUT 

G.  COMEND.  Called  to  end  fiche  when  in  the  title  search  mode. 

Calling  sequence:  JMP  COMEND 

H.  COMOST.  Converts  the  binary  fiche  count  and  title  number 
to"  EBCDI C . Calls  STATUS  to  write  status  buffer  to  disk. 

If.  there  has  been  a new  reel  mounted,  the  new  tape  number 
is  moved  to  separator  area.  Calling  sequence:  JMS  COMOST 

I.  CONVER,  Converts  a three-digit  binary  number  to  EBCDIC 
number  (one  byte  per  word).  Calling  sequence: 

LACA  ADDRESS  OF  EBCDIC  BUFFER 

JMS. CONVER 

LAC  BINARY  VALUE 
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J.  DDCL.  Jumps  to  clear  number  which  wipes  disk  status  block 

clean.  Calling  sequence:  JMP  DDCL 

K.  DOST.  Jumps  to  DDMT,  which  writes  the  disk  status  to  tape. 

Calling  sequence:  JMP  DDST 

L.  ERRTRM.  Called  when  the  run  is  aborted.  Sets  the  error 
flag  and  writes  out  the  status  to  disk.  Calling  sequence: 

JMP  ERRTRM 

M.  FICOUNT.  Adds  1 to  fiche  count  when  fiche  is  ended. 

Calling  sequence:  JMS  FICOUNT 

N.  FRF LAS.  Flashes  index  forms.  Calling  sequence:  JMP  FRF LAS 

O.  GTFNX.  Jumps  to  GTFRIX  to  load  index  forms.  Calling 

sequence:  JMP  GTFNX 

P.  INSET3 . Sets  the  title  intensity  to  24.  Calling  sequence: 
JMS  INSET3 

Q.  INSET6'.  Sets  the  print  intensity  to  48.  Calling  .sequence: 
JMS  INSET-6 

R.  INXCK.  Checks  each  print  line  for  the  index  line.  If  the 

print  line  is  to  be  indexed,  the  subroutine  calls  INXDO  to 
save  off  index  from  print  line.  Calling  sequence:  JMS  INXCjs 

S.  JOBERR.  Dummy  subroutine  used  to  display  TERMINATION  DUE 

TO  ERROR.  Calling  sequence:  JMS  JOBERR 

T.  JOBSTU.  Displays  title  search  parameter,  TITWH,  and  title 

number  to  be  searched,  I.  Calling  sequence:  JMS  JOBSTU 

U.  JULDAT.  Accepts  from  the  teletype  the  date  of  the-  run  and 

calculates  the  Julian  date.  Calling  sequence:  JMS  JULDAT- 

V.  LACEOV.  Entered  from  Tape  Read  Subroutine  when  a new  reel 
of  job  has  been  mounted.  The  subroutine  accepts  the  new 
tape  number,  and  sets  LATPCH  in  the  subroutine  COMOST  to 
move  the  new  tape  number  into  the^  status  buffer  after  the 
old  status  buffer  is  written  out.  Calling  sequence: 

JMS  LACEOV 
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W.  LACEND . Entered  when  end-of-file  is  detected  on  standard 
label  files.  The  subroutine  finishes  the  last  fiche  and 
writes  the  last  status  buffer  to  disk.  Calling  sequence: 
JMS  LACEND 

X.  LEAP . Entered  when  a leap  year  will  affect  the  Julian 

date;  adds  1 day  when  the  number  of  the  year  is  divisible 
by  4.  Calling  sequence:  JMS  LEAP 

/ 

Y.  MVCOM.  Moves  COM  control  information  to  title  area  and 

saves  the  address  where  the  title  information  is  stored. 
Calling  sequence:  JMS  MVCOM 

Z*  PRTLN . Outputs  a print  image  line  to  film  and  calls  CARCC 
to  set  line  spacing.  Calling  sequence:  JMS  PRTLN 

AA.  RECGET.  Gets  a logical  record  from  the  tape  buffer.  The 
table  RECPRT  contains  the  address  of  each  logical  record. 
The  subroutine  loads  the  address  of  logical  record  in 
CHRADD  and  puts  the  first  character  of  the  record  in  AC 
and  MQ.  The  routine  calls  MTLAC  when  physical  record  is 
required.  Calling  sequence:  JMS  RECGET 

BB.  STNOYE.  Displays  the  flag  STANN  for  a status  job.  Callin 
sequence:  JMS  STNOYE 

CC.  STYENO.  Entered  when  STATUS  JOBS  is  typed  in;  sets  BLDSW 
(NOP  for  nonstatus  jobs  and  SKP  for  status  jobs).  Calling 
sequence:  JMP  STYENO 

DD.  STUJOB.  Sets  the  title  number  for  search  title  command. 
Calling  sequence:  JMP  STUJOB 

EE.  SENEXT.  Searches  down  to  next  title  when  the  NEXT  TITLE 
command  is  given.  Calling  sequence:  JMP  SENEXT 

FF.  TITNX.  Dummy  subroutine  to  display  the  next  title.  Call- 
ing sequence:  JMS  TITNX 

GG*  TOPPAG.  Sets  the  beginning  X and  Y coordinates  for  a fram 
and  sets  lines  per  frame  to  64.  Calling  sequence: 

JMS  TOPPAG 

HH.  TOTTY.  Outputs  messages  to  the  teletype  and  waits  for  in- 
put from  it.'  Calling  sequence:  JMS  TOTTY 
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II.  TTAPNO'i  Outputs  to  the  teletype  the  message  ENTER  TAPE 
NUMBER  and  waits  for  six-digit'  input.  Calling  sequence.: 
JMS  TTAPNO 

JJ.  TTCHAR.  Translates  an  eight-bit  EBCDIC  character  into  a 
six-bit  ASCII  character.  Register  11  is  loaded  with  the 
address  of  the  buffer  containing  the  EBCDIC  character. 
Calling  sequence: 

JMS ■ TTCHAR 

DAC  CHARACTER,  6 -BIT  ASCII 

K’K.  TTTINT.  Initializes  the  teletype  output  buffer.  .Calling 
sequence : JMS  TTTINT 

LL.  TTTPUT.  Stores  three  ASCII  characters  per  word 
to  teletype.  Calling  sequence: 

LAC  ASCII'  CHARACTER 
JMS  TTTPUT 

MM.  TTTWD . Sets  character  count  TTTCT  to  3.  Calling  sequence 
JMS  TTTWD 

NN.  TYFPRX.  Displays  index  form  name.  Calling  sequence: 

JMS  TYFPRX 

2.15.3.3  Constants  and  Variables 
A.  External 


1. 

CHDELX. 

Variable 

that  contains 

X spacing. 

2. 

CHDELY .' 

Variable 

that  contains 

Y spacing. 

3. 

CHRSIZ. 

Variable 

that  contains 

character  size. 

4. 

CHRSZ. 

Variable 

that  contains 

character  size. 

5. 

CURBUF. 

Variable 

pointer  to  current  tape  buffei 

address 

• 
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6.  DECNUM.  Variable  that  contains  decimal  binary  number 
after  BEGIN  converts  ASCII  to  binary.  - 

7.  EXPND.  Buffer  used  by  Indexing  Subroutine. 

8.  GOND.  Buffer  used  by  Indexing  Subroutine. 

9.  FC7SUB . Instruction  change  (add  two)  when  initializiri 
the  fiche  camera  in  III186.  Changes  back  to  "subtract 
one"  during  run. 

10.  FCENDJ.  Instruction  to  jump  to  UNLEND  for  the  unlabeled 
end-of-job  routine. 

11.  FI CTB . Table  for  title  buffer. 

12.  FRAMNM.  Variable  frame  count. 

13.  INXDO-1 . Instruction  to  jump  to  FISCOUNT.  Add  to 
frame  count. 

14.  LEFTX.  Constant  starting  X coordinate.. 

15.  MAXTRW.  Variable  used  by  III185  Title  Routine;  program 
initializes  MAXTRW  to  zero. 

16.  MCHTAB . Table  for  six-bit  ASCII  teletype  codes. 

17.  MDISIZ.  Constant  character  size  of  monitor  display  (63). 

18.  MDISPL.  Constant  spacing  between  character  on  monitor 
display  (384  scope  points) . 

19.  MTCNT . Variable  number  of  words  remaining  in  tape 
buffer. 

20.  MT-E0F2 . If  -rl,  instruction  to  jump  to  LACEOV,  the 
Standard  Label  End-of -Volume  Routine. 

21.  NEXBUF.  Variable  pointer  to  next  tape  buffer. 
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22.  PBUFSZ.  Constant;  the  number  of  words  in  the  tape  • 
buffer  (466)  . 

23.  PGNAME . Constant;  the  program  name  LACPRT. 

24*  RECPIN.  Variable  to  hold  the  intensity. 

25.  REWCOM.  Rewind  constant  for  tape  handler. 

26.  SPCNUM’.  Constant  containing  Y spacing. 

27.  VCHTAB.  Table  -used  to  convert  EBCDIC  to  ASCII. 

28.  TEOF.  Instruction  to  jump  to  LACEND,  the  End  Fiche 
Routine. 

29.  TEOV-1 . Instruction  to  jump  to  LACEOV,,  the  End-of- 
Volume  Routine. 

30.  TITARE . Constant  pointer  to  temporary  title  buffer 

31.  TPOINT.  Variable  pointer  to  title  buffer. 

32.  TOPY.  Constant  containing  Y starting  coordinate. 

33.  XFOFF . Constant  containing  X offset. 

34.  YFOFF.  Constant  containing  Y offset. 

B.  Internal 

1.  ACTADD.  Variable;  actual  address  of  logical  record 

2*  BLDSW.  Switch;  when  set  to  NOP,  indicates  status 
' buffer  is  not  to  be  output  to  disk;  when  set  to  SKP 
indicates  status  buffer  is  to  be  output  to  disk. 

3.  BFITOT.  Variable  containing  binary  fiche  count. 

4.  BSTNO.  Variable  containing  binary  number  of  title 
count. 
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5.  CARCNT.  Variable  number  of  spaces  between  lines. 

6.  CHRADD.  Variable  address  of  current  word  in  logical 
record. 

7.  CHRSAV.  Variable  used  for  temporary  storage  for  second 
character  of  logical  record. 

8.  CHRSW.  Switch;  when  set  to  NOP,  second  character  of 
logical  record  is  unpacked;  when  set  to  SKP,  first 
character  of  logical  record  is  unpacked. 

9.  COMCHR.  Constant  hexadecimal  D9  COM  control  character. 

10.  COMINS.  Contains  instruction  LAC  BSTNO  or  LAC  SVBNO. 

11.  COMESW.  Switch;  set  to  NOP  for  multi “title  or  to  SKP 
for  single  title  jobs. 

12.  COMSW.  Switch  set  to  NOP  for  multi-title  or  to  SKP  foi 
title  search. 

13.  DATADD . Buffer  to  hold  Julian  date. 

14.  DAY.  Number  of  days  entered. 

15.  DAY TAB . Twelve  locations  used  by  JULDAT  that  contain 
the  number  of  days  in  each  month. 

16.  ENDATE . Constant  containing  message  ENTER  JULIAN  DATE. 

17.  EFMFL.  Variable  containing  pointer  for  forms. 

18.  EOTIF.  Constant  containing  message  END  OF  TITLE 

19.  FDNDXP.  Variable  pointer  for  indexing. 

20.  FITOT.  Variable  EBCDIC  buffer  for  fiche  count. 

21.  FRAMF.  Variable  pointer  for  indexing. 

•22.  .FRMTAB . Variable  seven-word  table  for  forms. 

23.  FXFMFL.  Variable  pointer  for  indexing. 
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24.  HLDCHR.  Variable  used  as  temporary  hold  for  first 
character  of  status  word. 

. 25.  H0LD11.  Variable  used  as  temporary  hold  for  register 

11,  address  in  status  buffer. 

26.  1 FLASW . Switch;  NOP  (no  indexing)  and  SKP  (indexing). 

27.  -JUL.  Table  with  length  of  6;  containes  calendar  date 
digits. 

2 8 . JULA.  Pointer  to  JUL  Table  used  in  TOTTY. 

29.  JULDAT. . Julian  date  calculated  by  JULDAT  Subroutine. 

30.  LATRCH.  Switch;  NOP  indicates  same  tape  and  SKP  indi- 
cates that  a new  tape  reel  has  been  mounted  and  the 
tape  number  must  be  moved  into  status  buffer. 

31.  LINPOS.  Variable  containing  actual  line  count  for 
indexing. 

32.  LNCT.  Variable  containing  run  count  of  lines- .per  page 

33.  LOKDAS . Switch;  NOP  indicates  no  check  for  slash. in 
the  title  record  and  SKP  indicates  to  check  for  slash. 

34.  MONTH.  Month  number  ente-red  in  JULDAT. 


35.  NAMID . Constant  containing  message  JOB  ID  NO. 

36.  " PUOID.  Variable  processing  indicator  (0  = no  error; 

1 = unrecoverable  read  error;  3 = recoverable  read 
error)  . 

37.  RE CADD . Variable  containing  logical  record  address. 

38.  RE CRT.  Variable  containing  logical  record  number. 

39.  RECSW.  Switch;  NOP  indicates  this  is  the  first  time 
the  RECGET  Subroutine  has  called;  SKP  indicates  this 
is  not  the  first  time. 
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40. 

41. 

42. 

43. 

44. 

45. 

46. 

47. 

48. 

49. 

50. 

51. 

52. 


SAVE 11 . Variable  used  as  temporary  hold  for  register 

11,  pointer  into  title  buffer. 

SAVE 12 . Variable  used  as  temporary  hold  for  register 

12,  pointer  into  status  buffer. 

SEPHLD.  Variable  pointer  to  tape  number  separator 
record. 

STANN.  Variable  containing  display  status  flag. 

STVBNO.  Variable  containing  save  title  number. 

SWWCH.  Switch  to  pack  two  characters  per  word  in  status 
buffer;  NOP  indicates  first  character  and  SKP  indicates 
second  character. 

TAPBUF . Tape  buffer. 

TEMP . Temporary  storage  location  in  LEAP. 

TITTW.  Variable  containing  title  search  flag. 

TITSK.  Variable  containing  title  search  count. 

TMPCT.  Variable  containing  working  storage  count  for 
loop  control. 

TITTY.  Teletype  buffer  for  input. 

TMPHLD . Variable  containing  holding  address  of  binary 
number  converted  to  EBCDIC. 


53.  T0RJ1.  Switch  used  in  TOTTY : NOP-TOTTY  indicates  to 

accept  calendar  date;  JMP  T0RJ3-  accepts  and  processes 
tape  number. 

54 . T0RJ2 . Switch  used  in  TOTTY:  JMP  ASDEC-TOTTY  indicates 

to  process  Julian  date;  NOP  indicates  no  further  pro- 
cessing. 
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55.  TPIDNO.  Constant  EBCDIC  message  TAPE  NO. 

56.  TTEMP . Variable  containing  working  storage  counter. 

57.  TTPBUF.  Variable  buffer  to  hold  tape  number  from 
teletype . 

58.  TTPMES . Constant  message  ENTER  TAPE  NUMBER. 

59.  TTTPT . Variable  pointer  into  teletype  output  buffer 

60.  TTTCT.  Variable  counter  containing  number  of  charac 

ters  per  teletype  xvord. 

61.  WHICR.  Switch;  indicates  which  carriage  control. 

62.  XXSAV.  Variable  X coordinate. 

63.  YEAR.  Year  number  entered  in  JULDAT. 

64.  YYSAV.  Variable  Y coordinate. 

2.15.3.4  Flow  Charts.  See  following  pages. 
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APPENDIX  A 

SOFTWARE  AND  TEST  TAPE 
REQUIREMENT  SPECIFICATIONS 
AND  ACCEPTANCE  TEST  PROCEDURES 


The  applicable  documents • listed  in  paragraph  1.3  of  this  volume 
may  be  obtained  from  the  SISO  Data  Control  Unit,  488-1270,  ext, 
393,  if  needed.  Documents  should  be  requested  by  document  number 
as  shown  in  paragraph  1.3. 
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APPENDIX  B 

PROGRAM  REVISIONS  AND 
rEST  PREPARATION  SHEETS 


The  following  paragraphs  list  revisions  to  each  program  described 
in  the  text  of  this  volume,  including  date  and  author  of  revision 
and  test  preparation  sheet  (TPS)  number  (JSC  form  1225).  Where 
applicable,  "copies  of  the  TRS  are  included,  along  with  additional 
explanatory  material. 

B.l  COMA  DTE  PROCESSORS  FOR  16  mm  FILM  (16DT36,  16DT48) , AND  10 
mm  FICHE  (105DT6,  105DT8) 

See  paragraph  2.1.  Revisions  are  as  follows: 

Date  Author  EO/TPS  No., 

20  May  1972  W.  T.  Jackson  E0127F  - TPS  A1 

31  October  1972  W.  T.  Jackson  E0127F  - TPS  A2 


TPS  No.  A1  and  A2  follow 
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Ccnf.go,  jtion 
, Chung© 

1 

Non*ConfIgurohon 

Change 

4.  Med  Shoe*  Number 


6 S C No  Model  No 


TEST  PREPARATION  SHEET 
NASA  - MANNED  SPACECRAFT  CENTER 


10  Drawing*.  Documents,  Oep's,  & Part  Numbers) 


15  TPS  Short  Title 


PTE  7th  Size  Character  & 16mm  Cut  Marks 


2 TPS  No 

12  7F 

- /?/ 

3 S 

'C 

Cat 

No. 

9,  Need  Dote 


Tl.  Contract  Number 


12.  Serial  Number 


1 4 Ret  E.  O.  > ‘"mber 

127F 


16.  Wt.  Req 


17.  Reason  tor  Work. 


18  DESCRIPTION  (Print  or  Type) 


PART  1 - DTE  7th  SIZE  CHARACTER 


LOAD  16DTE48-UCAM  PROGRAM 


2.  LOAD  7th  SIZE  DTE  TEST  TAPE 


3.  TYPE  UNLABELED  ON  TELETYPE 


TYPE  GO  TO  INITIATE  PROCESSING 


5.  NOTE  DATA  IS  DISPLAYED  ON  CRT  AS  IT  IS  RECORDED 


Insp. 


73  NASA 


* 8. 


VERIFY  RESULTS  OF  132  CHAR/LINE,  64  LINE/PAGE 


PART  2 - 16mm  CUTMARKS 


. LOAD  CLEAN  16mm  CUTMARK  PROGRAM 


LOAD  COM  TEST  -TAPE  1A 


TYPE  GO  TO  INITIATE  PROCESSING 


NOTE  DATA  AND  CUTMARKS  ARE  DISPLAYED  ON  CRT  AS  IT 


IS  RECORDED 


VERIFY  RESULTS  OF  PROCESSING  ON  16mm  FILM 


(PRESENCE  OF  CUTMARKS) 


19  Prepared  By 

L.  S.  Locklev 


ktt-ER  TO  rkOCFOURES  FOR  REQUIRED  SIGNATURES 


Contractor 


20.  Final  Acceptance  Date 


REFER  TO  PROCEDURES  FOk  KcOUiR,.D  SIGNATURES 
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REPRODUCIBILITY  OF  THE 
ORIGINAL  PAGE  IS  POOR 
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TEST  PREPARATION  SHEET 

CONTINUATION  SHEET 

NASA  - MANNED  SPACECRAFT  CENTER 


E.O.  127F  -jJL 


DESCRIPTION  (Print  of  Typ.) 


Type  FR8;  16DT36$J  to  load  the  16rnm 


DTE  36  Bit  program.  Verify  that 


* MONITOR  is  typed  on  the  teletype. 

Type  UNLABELLED/tL  for  unlabelled  tape 


rocessm 


Verify  * OK  is  typed  on  the  teletype. 


to  initiate  TAPE  3 


. Verify  that  the  startin 


time  and  frame  number  are  typed  on  the 


teletype.  NOTE  - that  all  data  is 


displayed  on  CRT  monitor  as  it  is  


Verify  that  elapsed  job  time,  frame 


number,  and  * END  OF  FILE  are  typed  on 


the  teletype. 


to  rewind  TAPE  3 


Verify  that  * OK  is  typed  on  the 


teletype.  


Type  CLEAR/ J,  at  the  teletype.  Verif 


that  * OK  is  typed  on  the  teletype 


This  portion  of  the  test  demonstrates  the  abilit 


to  output  the  Job  ID  Records  and  to  exercise  the 


STRIP  CHART  option  to  output  cutmarks  once  per 


ob  and  on  an  end  of  file,  DTE  36  bit.  


a.  At  the  teletype 


Type  STRIP  CHART/, 


exercise  option  of  cutmarks  once  per 


NSC  ro*M  «.  NASA-MSC-Co<T,t . Heotfon.  Uia 


Copy  1 


RmoDUCBiLrrr  of  tub 
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Verify  that  the  starring  t 


number,  are  typed  on  the  tel e t yge.. 

NOTE  - that  all  data  is  displayed  on 


the  CRT  monitor  as  it.  is  recorded. 
Verify  that  elapsed  job  time,  frame 


number,  * END  OF  FILE  is -typed  on  the 


teletype.  


Type  REWIND/,1  to  rewind  TAPE  : 


Verify  that  * OK  is  typed  on  the 


teletype,  


Type  CLEAR/J  at  the  teletype.  Verif 


that  * OK  is  typed  on  the  teletype 


At  the  tape  transport 


Verify  that  TAPE  30  is  rewound  to  load 


This  portion  of  the  test  demonstrates  the  abilif 


to  output  the  Job  ID  Records  and  to  output  cutmarks 


on  each  frame  using  DTE  48  Bit  data. 


a At  the  tape  transport : 


Mount  TAPE  50  and  set  unit  select 


switch  to  Unit  1: 


Type  CNTRL  D to  load  Disk  Debu 


Verify  * DEBUG  is  typed  on  teletype 


I 


Type  FR8; 16DT48SJ  to  load  the  16mm  DTE 


48  Bit  program.  Verify  that  * MONITOR 


is  typed  on  the  teletype.  _ 


MSC  FORM  1MM  UUL  .5)  NASA  -MSC-Comt  . HoU.lon,  T„,o» 


Copy  i 
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««C  FORM  UUt  NASA  _MSC_Com|  Houifon  T.„oi  . 


Copy  T 
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TEST  PREPARATION  SHEET 

CONTINUATION  SHEET 

NASA  - MANNED  SPACECRAFT  CENTER 


Trs  No 

E.O.  127F-/?5L 

sc 

Cof 

No 

' MEC  form  -«5*0ut « NASA  — MSC— ComI . T.,o. 


*«£*<%%* 
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B . 2 COMA  GRAY-LEVEL,  LANDSCAPE,  AND  CLASSIFICATION  MAP  PROCESSOR 
FOR  105  mm  FICHE  (CLAGRA) 

See  paragraph  2.2.  Revisions  are  as  follows: 

Date  Author  EO/TPS  No. 


13 

October 

1972 

W. 

T. 

Jackson 

EO-155F  - 

TPS 

A2A 

13 

October 

1972 

w. 

T. 

Jackson 

EO-155F  - 

TPS 

A2B 

20 

October 

1972 

w. 

T. 

Jackson 

EO-155F  - 

TPS 

A2C 

14 

May  1975 

J. 

E. 

Bennett 

TPS  A3 

TPS  No.  A2A,  A2B,  A2C  and  A3  follow.  For  TPS  No.  A2A,  see  also 
paragraph  B.2.1,  tables  B-l  through  B-4  and  figures  B-l  through 
B-3.  For  TPS  No.  A2B,  see  also  paragraph  B.2.2,  tables  B-5 
through  B-ll  and  figures  B-4  through  B-7.  For  TPS  A2C,  see  also 
paragraph  B.2.3,  tables  B-12  through  B-16  and  figures  B-8  and  B-9. 
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1. 

T 

Y 

r — 

A 

Configuration 

Change 

p 

E 

B 

Non-Configuration 

Change 

TEST  PREPARATION  SHEET 

4.  H 

\od  : 

Sheet  Number 

NASA  - MANNED  SPACECRAFT  CENTER 

6 S 

' C No  /Model  No 

7.  Date 

8 Time 

10  I 

drawings.  Documents,  Ocp’s.  & Part  Numbers) 

E.O.  155 

Cat. 

No 

9 Naed  Date 

13  October  1972. 


11  Contract  Number 

NAS  9-1261 


12  Serial  Number 


14  Ref  E O Number 

155F 


13.  System 

Computer  to  Microfilm 


15  TPS  Short  Title  j 16.  Wt  Req. 

Classification  Map  Software  Acceptance  Test 


17.  Rooion  for  Work  •Jq  verify  the  software  development  on  the  COM  System  for  the 


Classification  Map  Software  as  defined  in  PHO-TN598  and  as  required 


under  E.I.  #1  E.O.  155F. 


18  DESCRIPTION  (Print  or  Typo) 


Refer  to  the  attached  handout  for  a description  of  the  tests 


nd  the  test  results. 


TEST  PROCEDURES 


At  the  Tape  Transport : 

(1) Mount  Classification  Map  Acceptance  Test  Tape 


At  the  Teletype: 

(1.)  Type  GRA;CLASS$J  to  load  Classification  Map 


Program.  Verify  that  ^MONITOR  is  typed  on  the 


teletype . 


Type  UNLABELLED/ 
on  the  teletype. 


Verify  that  *0K  is  typed 


19.  Prepared  By 

L.  S.  LOCKLER 


REFfcrt  TO  PROCEDURES  FOR  REQUIRED  SIGNa 


Contractor 


20  Final  Acceptance  Date 


REhfcR  TO  PROChDUKdb  . Ok  Kt^o..*LO  SIGNATURES 


Date 


MSC  FOCM  >233 IWL  45) 


NASA — MSC — Coml.,  Hoo»to»,  Tew* 


Copy  1 


n -BPBODTOIBILin'  OF  THE 
PAGE  IS  POOB 
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‘CONTINUATION  SHEET 


MSC  rcwiM  t«SA  (JUL  «5I  NASA-MSC-Coml  Moulton.  T.xoi 
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B.2.1  Classification  Map  Acceptance  Test.  The  Classification  Map 
Acceptance  Test  utilizes  a tape  (tape  1]  containing  a series  of 
four  tests  as  described  below  and  summarized  in  table  B-l. 

A.  Test  1,  Maximum  Image  Size.  This  test  shall  consist  of 
classification  data  to  build  a classification  map  image 
of  200  lines  containing  350  characters  each.  This  image 
shall  demonstrate  maximum  size.  Display  data  shall  con- 
sist of  the  alphabet  with  the  first  line  containing  all 
A's,  the  second  all  B’s,  the  third  all  C’s,  etc.  for  a 
maximum  of  200  lines  as  illustrated  in  figure  B-l. 

B.  Test  2,  Overlay  Data.  This  test  shall  consist  of  the  same 
data  pattern  as  test  1.  However,  overlay  data  as  defined 
in  table  B-2  and  B-3  shall  be  included  to  demonstrate  the 
overlay  capability  (see  figure  B-2). 

C.  Test  3,  Multiple  Images.  This  test  shall  consist  of  a 
COM  control  record  for  titling  (see  table  B-4)  followed  by 
classification  control  and  data  records  to  generate  10 
frames  of  images  identical  to  those  defined  in  test  2. 

D.  Test  4,  Descriptor  Frame.  This  test  shall  consist  of  data 
to  build  a descriptor  frame  of  64  lines  containing  132 
characters  each.  Display  data  shall  consist  of  alphanumeric 
characters  with  the  first  line  containing  all^A's,  the 
second  all  B's,  etc.,  for  a maximum  of  64  lines  as  illus- 
trated in  figure  B-3.  Preceding  the  data  for  this  test  are 
two  descriptor  control  records  with  zero  line  and  column 
parameters.  This  will  cause  two  frames  to  be  shipped 
before  the  descriptor  frame  is  output. 
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TABLE  B-] 

CLASSIFICATION  TESTS 


'TEST  NO. 

FUNCTION 

CONTENT/ FORMAT 

1 

TEST  MAXIMUM  CLASSIFICATION 
MAP  IMAGE  SIZE 

SPANNED  VARIABLE  LENGTH  RECORD 
TO  TEST  MAXIMUM  CLASSIFICATION 
MAP  IMAGE  SIZE.  (TEST  DISPLAY 
DEFINED  IN  PARA.  A.) 

2 

TEST  OVERLAY  CAPABILITY  ON 
CLASSIFICATION  MAP 

SPANNED  VARIABLE  LENGTH  RECORD 
TO  TEST  OVERLAY  CAPABILITY  (TEST 
DISPLAY  DEFINED  IN  PARA.  B.) 

3 

TEST  MULTIPLE  IMAGES  PER 
FICHE  WITH  CLASSIFICATION 
DATA 

SPANNED. VARIABLE  LENGTH  RECORDS 
TO  TEST  MULTIPLE  IMAGES  PER  FICHE. 
(TEST  DISPLAY  DEFINED  IN  PARA.  C.) 

4 

TEST  MAXIMUM  SIZE  DESCRIPTION 
FRAME.  TEST  FRAME  SKIP  OPTION. 

SPANNED  VARIABLE  LENGTH  RECORD 
TO  TEST  DESCRIPTOR  FORMAT.-  (TEST 
DISPLAY  DEFINED  IN  PARA.  D. ) 
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CHARACTER 

POSITION 


LINE  1 
NUMBER  2 

3 

4 

5 

- , 6 

7 


3 4 5 6 


► 351  352  353  354  355 


AAAA 

BBBB 

CCCC 


A A A A A 
B B B B B 
C C C C C 


REPEAT  OF  ALPHABET 
TO  LINE  204 


t 

201 

202 

203 

204 


* 


0000 

PPPP  _ __  _ ! 

QQQQ 

RRRR 

& 

0 0 0 0 

p p P P 

Q Q Q Q 

R R R R 


NOTE:  DASHED  LINES  AND  COORDINATES  NOT  INCLUDED  ON  DISPLAY;  FOR  REFERENCE  ONLY. 


o 

I — 1 


H 
1— I 


Figure  B-l  Classification  Map  Data  (200  Lines  of  350  characters) 
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- TABLE  B-2 


NUMERIC  OVERLAY  INFORMATION  FOR  CLASSIFICATION  TEST  2 


LINE  NO. 

CHARACTER 

POSITION 

DATA 

1 

6 

0 

2 

6 

0 

3 

6 

0 

4 

6 

1 

1 

355 

0 

2 • 

355 

3 

3 

355 

5 

■4 

355 

0 

5 

1 

0 

5 

2 

0 

5 

3 

0 

5 

4 

0 

5 

5 

1 

204 

1 

0 

204 

2 

0 

204 

3 

2 

204 

4 

0 

204 

5 

0 

TABLE  B-3 

VECTOR  OVERLAY  INFORMATION  FOR  CLASSIFICATION  TEST  2 


VECTOR 

START 

STOP 

1 

. CHAR  POS  6 
LINE  106 

CHAR  POS  180 
LINE  5' 

2 

CHAR  POS  6 
LINE  106 

.CHAR  POS  180 
LINE  204 

3 

' CHAR  POS  180 
LINE  204 

CHAR  POS  355 
LINE  106 

4 

CHAR  POS  355 
LINE  106 

CHAR  POS  180 
LINE  5 

CHARACTER 

POSITION 


1 2 3 4 5 6 - - 180  — - -$*352  353  354  355 


NOTE:  DASHED  LINES  AND  COORDINATES  NOT  INCLUDED  ON  DISPLAY;  FOR  REFERENCE  ONLY. 


< <*> 
o i — t 

m c n 
* o 

1-1  H 

r-i 

W 


Figure  B-2  Classification  Map  Data  with  Overlays 
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TABLE  B-4 
USER  FICHE  TITLES 


TAPE  'NO.  ■ 

TITLE 

1 

l (TEST  3.) 
2 
3 

CLASSIFICATION  MAP  TEST  FICHE 
MULTIPLE  IMAGE  AND  DESCRIPTOR  TEST  FICHE 
GRAY-LEVEL  TEST  FICHE 
LANDSCAPE  TEST  FICHE 
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LINE 

NUMBER 


NOTE: 


CHARACTER 

POSITION 

1 2 3 4 5 

1 A A A 

2 B B B 

3.  C C C 

4 D D D 


26  Z Z Z 

27  A A A 

28  B B B 


51  Y Y Y 

52  Z Z Z 

53  0 0 0 

54  1 ,1  1 

55  2 2 2 

56  3 3 3 

57  4 4 4 

58  5 5 5 

59  6 6 6 

60  7 7 7 

61  8 8 8 

62  9 9 9 

63  0 0 0 

64  0 0 0 — - _____ 

DASHED  LINES  AND  COORDINATES  NOT  INCLUDED  ON  DISPLAY;  FOR  REFERENCE  ONLY 


130  1.31 

A A 

B B 

C C 

D D 


Z Z 

A A 
B B 


Y Y 

Z • Z 
0 0 

1 1. 

2 2 

3 ' 3 

4 4 

5 5 

6 6 

7 7 

8 8 

9-  9 

0 0 

0 0 


132. 

A 

B 

C 

D 


Z 

A 

B 


Y 

Z 

0 

.1 

2 

3 

4 

5 

6 
7. 
8 
9 
0 
0 


Figure  B-3  Descriptor  Data  (64, Lines  of  132  characters) 
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E | p j Chanqo 
4 Mod  Sheet  Number 


6 S C No  Model  No 


10  Drawings.  Documents.  Ocp's  & Part  Numberfs) 


13.  System 

Computer  to  Micro film 
15  TPS  Short  Title 

► Gray  Level  Software  Acceptance  Test 


17  Reason  for  Work.  <po  ver^fy  the  software  development  on  the  COM  System  for  the 


9 Need  Out© 

13  October  1972 


11.  Cortract  Number 

NAS  9-l2bl 


12  Sana!  Number 


i4  Ref  E O Number 
155F 

I1&  W,  "yq. 


| 1C 


ray  level  software -as  defined  in  PHO-TN598  and  as  required  under  E.I.  (fl 


of  E.O.  155F 


18-  DESCRIPTION  (Print  or  Type) 


-TES  T-PB.0  CE  DURE  S - 


(Tape  2), 


19  Propcjrod  By 

L.  S.  LOCKLER 


Cl)  Type  GRA ;GRAY  $J  to  load  Gray-Level  Program 

Verify  that  •■MONITOR  is  typed  o n the  ^ 

teletype . 


:2)  Type  UNLABELLED'/ 1 . Verify  that  *0K  is 

typed  on  the  teletype  . 


’3)  Type  CLEAR/ ^ twice  to  advance  exposed 

film  into  the  take-up  magazine.  Ver ify 

that  ~*0K  is  typed  on  the  teletype  afte-r 

each  CLEAR/  ■)  . 


1 20  Final  Acceptance  Date 
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TEST  PREPARATION  SHEET 

CONTINUATION  SHEET 


MSC  FOAM  1229 A tjUL  Ml 


NASA  — M SC  —Com!  Hwjtcn,  T«xg> 


Copy  1 
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TEST  PREPARATION  SHEET 

CONTINUATION  SHEET 

NASA  - MANNED  SPACECRAFT  CENTER 


DESCRIPTION  (Print  or  Typo) 


Gray-Level  Acceptance  Test  - Tape  '2A 


a.  At  the  Tape  Transport: 


(1)  Mount  Gray-Level  Acceptance  Test  Tape 


(Tape  2A)  . 


(1)  Type  GRA;GRAY$J  to  load  Gray-Level 


Program.  Verify  that  *MONITOR  is  typed 


on  the  teletype. 


(2)  Type  SKIP/ A to  bypass  the  standard 


label  on  the  tape.  Verify  that  *0K 


typed  on  the  teletype. 


(3)  Type  UNLABELLED / . Verify  that  *0 


is  typed  on  the  teletype. 


Type  CLEAR/.},  to  advance  exposed  film  . 


into  the  take-up  magazine.  Verify  that 


*0K  is  typed  on  the  teletype  after  e 


CLEAR/ 


(5)  Type  G0/.1  to  initiate  processing  of 


the  Gray-Level  Acceptance  Test  Tape 


(Tape  2A) . Verify  that  the  starting 


time  and  frame  number  ,are  typed  on/£he 


, y 

teletype. 


(6)  Verify  that  the  elapsed  job  time,  frame 


number , page  number , and  *END  OF  FILE 


are  typed  on  the  teletype  to  signal  • 


completion  of  data  tape  processing. 


MS C FORM  I225A  UUL  SS> 


NASA—  MSC— Cortil . Houifon,  Texet 


Copy  1 
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TEST  PREPARATION  SHEET 

CONTINUATION  SHEET 

NASA  - MANNED  SPACECRAFT  CENTER 


DESCRIPTION  (Print  or  Typ.( 


(7)  Type  END  JOB/  to  complete  processing 

of  the  Gray-Level  Acceptance  Test  -Tape 


(Tape  2).  Verify  thar  *QJC  is  typed  on 


the  teletype. 


twice  to  advance  exposed 


film  into  the  take-up  magazine.  Verify 
that  *0K  is  typed  on  the  teletype  after 


each  CLEAR/ 


. to  rewind  the  Gray-Level 


Acceptance  Test  Tape  (Tape  2A) . Verif 


that  ""OK  is  typed  on  the  teletype. 


At  the  Tape  Transport 


Dismount  the  Gray-Level  Acceptance  Test 


Tape  (Tape  2A 


(2)  - View  the  resulting  105mm  microfiche  on 


the  Datagraphix,  or  have  hardcopies  made 


from  the  microfiche.  Verify  that  the 


results  match  Test  1 as  described  in 


Paragraph  1 . of  the  accompanying  handout 


and  Test  2,  Test  3,  and  Test  4 as  / 


described  ’ n Paragraphs  2,  3,  and  4 


respective!' 


MSC  Form  ujsa  (jut.  is)  . 


NASA— MSC— Coml . Homier.  T*xot 


Copy  t 
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B.2.2  Gray-Level  Acceptance  Test.  The  Gray-Level  Acceptance 
Test  utilizes  two  tapes  C 2 and  2A)  consisting  of  the  tests  des- 
cribed below  and  summarized  in  Table  B-5. 

A.  Test  1,  Maximum  Size  and  Overlay.  This  test  shall  be  con- 
tained on  tape  2 and  shall  consist  of  gray-level  and 
overlay  data  to  build  eight  images  of  1024  lines  and  1024 
columns.  This  will  demonstrate  maximum  size  and  multiple 
images  per  fiche.  Gray-level  data  shall  consist  of  1000 
lines,  each  line  containing  1000  pixels.  Overlay  data 
shall  be  constructed  as  shown  in  figure  B-4  and  tables 
B-6  and  B-7.  Each  image  will  be  unique  gray-level  as 
defined  in  figure  B-4. 

B.  Test  2,  X Shade  Bars.  This  test  and  tests  3 and  4 shall 
be  contained  on  tape  2A.  Test  2 shall  consist  of  1000 
lines  of  gray-level  data,  each  line  containing  1000  pixels. 
This  pattern  shall  demonstrate  both  ascending  and  descending 
shade  bars  in  the  X-axis  and  shall  be  constructed  as  illus- 
trated in  figure  B-5.  The  first  500  lines  shall  be  identi- 
cal and  shall  consist  of  a descending  shade  pattern.  The 
next  500  lines  shall  be  identical  and  consist  of  an  ascend- 
ing shade  pattern.  The  test  2 overlay  information  shall 

be  included  in  the  same  logical  record'  as  the  gray-level 
data.  Overlay  data  is  illustrated  in  figure- B-5  and  de- 
fined in  tables  B-8  and  B-9. 

C.  Test  3,  Y Shade  Bars.  This  test  shall  consist  of  1000 
lines  of  gray-level  data,  each  line  containing  1000  pixels. 
This  pattern  will  demonstrate  both  ascending  and  descending 
shade  bars  in  *the  Y-axis,  and  shall  be  constructed  as  illus- 
trated in  figure  B-6.  The  Test  3 overlay  information  shall 
be  included  in  the  same  logical  record  as  the  gray-level 
data.  Overlay  data  is  illustrated  in  figure  B-6  and  de- 
fined in  tables  B-10  and  B-ll. 

D.  Test  4,  Descriptor  Frame.  This  test  shall  consist-  of  data 
to  build  a descriptor  frame  of  64  lines  containing  132 
characters  each.  Display  data  shall  consist  of  alpha- 
numeric characters  with  the  first  line  containing  all  A's, 
the  second  all  B’s,  etc.,  for  a maximum  of  64  lines  as 
illustrated  in  figure  B-7. 
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TABLE  B-5 


GRAY- LEVEL  TESTS 


FUNCTION 

CONTENT/ FORMAT 

1 

TEST  MAXIMUM  GRAY-LEVEL  IMAGE 
SIZE,  MULTIPLE  IMAGES  PER  FICHE, 

SPANNED  VARIABLE  LENGTH  RECORD 
TO  TEST  MAXIMUM  IMAGE  SIZE, 

AND  OVERLAY  CAPABILITIES 

MULTIPLE  IMAGES  PER  FICHE,  AND 
OVERLAY  CAPABILITIES  (TEST 
DISPLAY  IS  DEFINED  IN' PARA.  A.) 

2 

TEST  ASCENDING  AND  DESCENDING 
SHADE  BARS  IN  X-AXIS 

SPANNED  VARIABLE  LENGTH  RECORD 
TO  CHECK  EIGHT  GRAY  LEVELS 
(TEST  DISPLAY  IS  DEFINED  IN  PARA. 
B.) 

SPANNED  VARIABLE  LENGTH  RECORD 
TO  CHECK  EIGHT  GRAY  LEVELS-  (TEST 
DISPLAY  IS  DEFINED  IN  PARA.  C.) 

3 

TEST  ASCENDING  AND  DESCENDING 
SHADE  BARS  IN  Y-AXIS 

4 

TEST  MAXIMUM  SIZE  DESCRIPTOR 
FRAME 

SPANNED  VARIABLE  LENGTH  RECORD' 
TO  TEST  DESCRIPTOR  FORMAT  (TEST 
DISPLAY  IS  DEFINED  IN  PARA.  D.) 
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TABLE  B-6 


'7 


CHARACTER  OVERLAY  INFORMATION  FOR  GRAY-LEVEL  TEST  1 


TABLE  B-7 

: VECTOR  OVERLAY  INFORMATION  FOR  GRAY-LEVEL  TEST  1 


STARTINt 

3 POINT 

• . ENDING 

POINT  j 

LINE 

COL 

LINE 

COL  J 

523 

23 

23 

523 

1023 

' 23 

23 

1023 

1023 

523 

523 

1023 

B-  27 


-28 


COLUMN 

POSITION 

23— -—-1 48— 273— —398- 523- 648 773 898 023 


< 

o 


l—l 
J— t 


NOTE:'  DASHED  LINES  AND  COORDINATES  NOT  INCLUDED  ON  DISPLAY;  FOR  REFERENCE  ONLY. 

' 1 * j 

Figure  B-5  X Shade  Bars  and  Overlay  for  Gray-Level 
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TABLE  B-9 

VECTOR  OVERLAY  INFORMATION  FOR  GRAY-LEVEL  TEST  2 


STARTING  POINT 

ENDING 

POINT 

LINE  NO. 

COLUMN 

POS. 

LINE  NO. 

COLUMN 

POS. 

23 

23 

1023 

23 

23 

1023  ' 

1023 

1023 

23 

23 

23 

1023 

523 

23 

523 

1023 

1023 

23 

1023 

1023 

23 

148 

173 

148 

23 

273 

173 

273 

23 

398 

173 

398 

23 

523 

173  ■ 

523 

23 

648 

173-  ■ 

648 

23 

773 

173 

773 

23 

898 

173 

898 

373 

148 

673 

148 

373 

273 

673 

273 

373 

398 

673 

398 

373 

523 

673 

523 

373 

648' 

673 

648 

373 

773 

673 

773 

373  • 

898  - 

673 

898 

873 

148 

1023 

. 148 

873 

273 

1023 

273 

873 

398 

1023 

398 

873 

523 

1023 

523 

873 

648 

1023 

648 

873  • 

773 

1023 

773 

873 

'898 

•1023 

898 

B-  30 


NOTE: 


FR80  GRAY  LEVEL  FR80  GRAY  LEVEL 

DASHED  LINES  AND  COORDINATES  NOT  INCLUDED  ON  DISPLAY;  FOR  REFERENCE  ONLY. 
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TABLE  B-10 

CHARACTER  OVERLAY  INFORMATION  FOR  GRAY-LEVEL  TEST  3 


LINE  NO. 

COLUMN 

POSITION 

DATA 

85 

273 

7 

210 

273 

6 

335 

273 

5 

460 

273 

4 

585 

273 

3 

710 

273 

2 

835 

273 

1 

960 

273 

0 

85 

773 

0 

210 

773 

1 

335 

773 

2 

460' 

773 

3 

585 

773' 

4 

710 

773 

5 

835 

773 

6 

960 

773 

7 
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SEPEODuemny  of  the 

* 'PIQTMAL  PAGE  IS  POO® 


CHARACTER 

POSITION 

1 2 3 4 5 ®>129  130  131  132 


LINE 

NUMBER 


1 A A A - - ► A 

2 b B B - - — ► B 

3 C C C C 


4 C 

l D D 

[i 

l 1 

f 

▼ 

26  Z 

27  A 

28  B 


Z 1 
A A 
B B 


Z 

A 

B 


51  Y V Y Y 

52  Z Z Z Z 

53  0 0 0 0 

54  1 1 1 1 

55  2 2 2 2 

56  3 3 3 3 

57  4 4 4 4 

58  5 5 5 5 

59  6 6 6 6 

60  7 7 7 7 

61  8 8 8 8 

62  9 9 9 9 

63  0 0 0 0 

64  0 0 0 **  0 


AAA 
B B B 

C C . C 

D D D 


111 
A A • A 

B B B 


Y Y Y 

111 
0 0 0 

1 1 1 

2 2 2 

3 3 3 

4 4 4 

5 5 5 

6 6 6 

7 7 7 

8 8 8 

9 9 9 

0 0 0 

0 0 0 


NOTE:  DASHED  LINES  AND  COORDINATES  NOT  INCLUDED  ON  DISPLAY;  FOR  REFERENCE  ONLY. 


Figure  B-7  Descriptor  Data  (64  Lines  of  132  characters) 
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Cunfujuiafion 

Change 

i 

2 'TPS  No 

NorvConfigurahon 

Change 

TEST  PREPARATION  SHEET  1 

3.  S/C 

4 Mod  Shoe!  Number 


6 S C No  'Model  No 


10  Drawings,  Documents.  Ocp’s,  & Port  Number(s) 


13  System 

COL.p 


15  TPS  Short  Title 


5.  Page 


9-  Neod  Date 

10/27/72 


11.  Contract  Number 

NAS  9-1261 


12  Serial  Number 


14.  Ref.  E.  O.  Number 
155F 


16  Wt.  Reg 


Landscape  Software  Acceptance  Test 


17.  Reason  for  Work-  x0  verify  the  'software  development  on  the  COM  System  for  the 


Landscape  Software  as  defined  in  PH0-TN598  and  as  required  under  E.I.  #1  of 


18  DESCRIPTION  (Print  or  Type) 


Refer  to  the  attached  handout  for  a description  of  the  tests 


and  test  results. 


TEST  PROCEDURES 


At  the  Tape  Transport: 


(1)  Mount  Landscape  Acceptance  Test  Tape  (Tape  3) . 


Type  GRA;LAND$J  to  load  Landscape  Program. 


Verify  that  *M0NIT0R  is  typed  on  the  teletype. 


MSC  ro»M  1225  (JUl  «5| 


NASA — MSC— — Coml.,  Houston,  Tenoi 
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• 

■ 

TEST  PREPARATION  SHEET 

TPS  No. 

E.O.  155F<i 

CONTINUATION,  SHEET 

S/C 

Cat. 

No 

NAS*  - MANNED  SPACECRAFT  CENTER 

l T“ 

Pogo  ^ 

of 

* 

DESCRIPTION  (Print  or  Typ*) 

T«ch 

■■ 

up 

1 NASA 

(4)  Type  GO/,i  to  initiate  processing  of  the 

||  ■ 

Landscape  Acceptance  Test  tape  (Tape  3} . 

| 

Verify  that  the  starting  time  and  frame  numbei 

m 

||  | 

are  typed  on  the  teletype. 

1 

jm 

mm 

(5)  Verify  that  elapsed  iob  time,  frame  number. 

. page  number,  and  *END  OF  FILE  are  typed  on 

m 

■Hi 

the  teletype  to  signal  completion  of  data  tape 

■ 

KB 

processing. 

(6)  Type  END  JOB/  i/  to  complete  processing  of  the 

Landscape  Acceptance  Test  tape  (Tape  3). 

Verify  that  *0K  is  typed  on  the  teletype. 

(7)  Type  CLEAR/ X twice  to  advance  exposed  film 

into  the  take-up  magazine.  Verify  that  *0K 

is  typed  on  the  teletype  after  each  CLEAR/ i . 

f8)  Type.  REWIND/ il  to  rewind  the  Landscape 

• 

■HMMHHVliiRliRffiHVIRiSIlPHnHiiRiVliVfli 

. 

*0K  is  typed  on  the  teletype. 

c.  At  the  Tape  Transport: 

■ 

(1)  Dismount  the  Landscape  Acceptance  Test  tape 

(Tape  3) . 

d.  Test  Result  Verification: 

(1)  Process  105mm  film  containing  the  results. 

(2)  View  the  resulting  105mm  microfiche,  or  have 

hardcopies  made  from  the  microfiche.  Verify 

| || 

that  the  results  match  the  tests  described 

m 

| 

in  paragraphs  1 KH  and  2 of  the  attached 

■ 

|| 

H 

handout . 

■1 

• 

MSC  fosm  mu  UUL  «,  NASA_MSC_Com, . Hou[loo,  T„ol 
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B.2.3  Landscape  Acceptance  Test.  The  Landscape  Acceptance  Test 
utilizes  one  tape  (3)  containing  two  tests  as  described  below  and- 
summarized  in  table  B-12. 

A.  Test  1,  X Shade  Bars.  This  test  shall  consist  of  a control 
word,  background  request  word,  and  gray  shade  words  for  439 
lines  of  612  pixels  each.  This  pattern  shall  demonstrate  • 
both  ascending  and  descending  shade  bars  and  shall  be  con- 
structed as  illustrated  in  figure  B-8.  The  first  220  lines 
shall  be  identical  and  consist  of  a descending  shade  pat- 
tern. The  next  219  lines  shall  be  identical  and  consist 

of  an  ascending  shade  pattern.  The  X shade  bar  overlay 
information  shall  be  included  in  the  same  logical  record 
as  the  gray  shade  words  as  illustrated  in  figure  B-8  and 
as  defined  in  tables  B-13  and  B-14.  Note  that  overlay  data 
coordinates  are  given  in  1024  x 1024  matrix,  but  are  scaled 
down  to  612  x 439  matrix  by  software. 

B.  Test  2,  Y Shade  Bars.  This  test  shall  consist  of  a con- 
trol word,  background  request  word,  and  gray  shade  words 
for  439  lines  of  612  pixels  each.  This  pattern  shall 
demonstrate  both  ascending  and  descending  shade  bars  in 
the  Y axis  and  shall  be  constructed  as  illustrated  in 
figure  B-9.  The  Y shade  bar  overlay  information  shall  be 
included  in  the  same  logical  record  as  the  gray  shade  words 
as  illustrated  in  figure  B-9,  and  as  defined  in  tables 
B-15  and  B-16.  Note  that  overlay  data  coordinates  are 
given  in  1024  x 1024  matrix  but  are  scaled  down  to.  612  x 
439  matrix  by  software. 
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TABLE  B- 1 2 


LANDSCAPE  TESTS 


PURPOSE 

CONTENT/FORMAT 

TEST  ASCENDING  AND  DESCEND- 
ING SHADE  BARS  IN  X-AXIS 

SPANNED  VARIABLE  LENGTH 
RECORD  TO  CHECK  EIGHT  GRAY 
LEVELS.  TEST  DISPLAY  FOR 
THIS  RECORD  DEFINED  IN 
PARA  B. 2. 3, A. 

TEST  ASCENDING  AND  DESCEND- 
ING SHADE  BARS  IN  Y-AXIS 

SPANNED  VARIABLE  LENGTH 
RECORD  TO  CHECK  EIGHT  GRAY 
LEVELS.  TEST  DISPLAY  FOR 
THIS  RECORD  DEFINED  IN ‘ 
PARA  B . 2 . 3 , B . 

TABLE  B-l  3 


CHARACTER  OVERLAY  INFORMATION  FO 

R LANDSCAPE  TEST  1 

LINE  NO. 

PIXEL  .POS 

DATA 

769 

63 

0 

769 

190 

1 

769 

318 

2 

769 

445 

3 

769 

572 

4 

769 

699 

5 

769 

826 

6 

769 

957 

7 

256 

63 

7 

256 

190 

6 

256 

318 

5 

256 

445 

4 

256 

572 

3 

256 

699 

2 

256 

826 

1 

256 

957 

0 
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PIXEL 

POSITION 

0 76  152  228  304  380  456  532  '611 


Figure  B-8  X Shade  Bars  and  Overlay  for  Landscape 
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TABLE  B-l  4 

VECTOR  OVERLAY  INFORMATION  FOR  LANDSCAPE  TEST  1 
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TABLE  B-15 


CHARACTER  OVERLAY  INFORMATION  FOR  LANDSCAPE  TEST2 


LINE  NO. 

PIXEL  POS 

DATA 

954 

256 

7 

819 

256 

6 

692 

256 

5 

566 

256 

4 

441 

256 

3 

315 

256 

2 

189 

256 

1 

63 

256 

0 

9 54 

768 

0 

819 

768  ' 

T 

692 

768 

2 

566 

768 

3 

441 

768 

4 

315 

768 

. 5 

189 

768 

6 

63 

768 

7 
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VECTOR  OVERLAY  INFORMATION  FOR  LANDSCAPE  TEST  2 
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1 

7 

Configuration 

T 

Y 

Change 

p 

€ 

B 

Non -Con  figuration 
Change 

U,  Mod.  Sheer  Number 

TEST  PREPARATION  SHEET 

NASA  - LYNDON  B.  JOHNSON  SPACE  CENTER 


2 TPS  No 


3 S/C 


7.  DU 


rawing],  Documinti.  Ocp's,  £”PIrt  Number(i) 


13.  System 

COMA 

Short  Title 


17.  Reason  for  Work: 


Verification  of  CLAGRA  Program 


1 8.  DESCRI  PTION  ( Print  or  Ty pel 


I TESTS 


Load  105mm  camera.  Use  a leader  in  the  take 


Focus  the  PLS  according  to  the  procedure 


on  the  inside  of  the  camera  bay  door. 


Set  the  intensity  to  a value  of  24  x 1. 


Enter  space  on  TTY  to  return tP  DEBUG 


control. 


Enter  GRA; GRAYS J on  TTY. 


Verify  that  *MONITOR  is  typed  by  program 
Enter  CLEAR/ (CR)  on  TTY.  Verify' that 


*OK  is  typed. 


9.  Prepared  By 


k1 


<{  C-'>  /%' 


mal  Acceptance  Date 


REFER  TO  PROCEDURES  FOR  REQUIRED  SIGNATURES 


JSC  »OMM  l JJ5  I AIL  CSJ 


copy  i 


REPRODUCIBILITY  OF  TW'fi' 
ORIGINAL  PAGE  Is  POOR 
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10.  Mount  gray  level  test  tape  #2A  on  9-trk  drive. 

Set  unit  select  SW  to  1. 

11.  Enter  UNLABELLED/ (CR)  on  TTY.  Verify  that  *OK 
• is  typed. 

12.  Enter  SKIP/(CR)  to  skip  label  on  tape.  Verify 
that  *OK  is  typed. 

13.  ' Place  data  sw.  8 in  the  up  position. 

14.  Enter  G0/(CR)  to  start  processing  of  the  test 
tape.  Verify  that  the  start  time  and  frame 
number  are  typed . 

15.  Verify  that  stop  time,  frame  number  and  *END 
OF  FILE  are  typed  at  completion  of  job.. 

16.  Enter  REWIND/ (CR)  to  rewind  test  tape.  Verify 
that  *0K  is  typed. 

17.  Enter  END  J0B/(CR)  to  finish  fiche.  Verify 
that  *OK  is  typed. 

18.  Dismount  gray  test  tape  and  mount  landscape 
test  tape  on  tape  drive. 

19.  Press  START  switch  on  console  to  get  DEBUG  control. 

20.  Enter  LAND$J  on  TTY. 

21.  Same  as  step  #7  above. 

22.  Same  as  step  #11  above. 

23.  Same  as  step  #14  above.' 

24.  Same  as  step  #15  above. 

25.  same  as  siep  #16  above. 

26.  Same  as  step  #17  above. 

27.  Dismount  landscape  test  tape  and  mount  class 
map  test  tape  on  tape  drive. 

28.  Same  as  #19  above. 
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29. 

Enter  CLASS$J  on  TTY. 

30. 

Same 

as 

#7 

above . 

31. 

Same 

as 

#11 

above . 

32. 

Same 

as 

#14 

above . 

33. 

Same 

as 

#15 

above . 

34. 

Same 

as 

#16 

above . 

35. 

Same 

as 

#17 

above . 

36. 

Same 

as 

#19 

above . 

37. 

Enter  CLAGRA$J  on  TTY 

38. 

Same 

as 

#7  i 

above . 

39. 

Same 

as 

#10 

above . 

40. 

Same 

as 

#11 

above . 

41. 

Same 

as 

#12 

above . 

42. 

Same 

as 

#14 

above . 

43. 

Same 

as 

#15 

above . 

44. 

Same 

as 

#16 

above . 

45. 

Same 

as 

#17 

above . ■ 

46. 

Same 

as 

#18 

above . 

47. 

Same' 

as 

#14 

above . 

48. ! 

Same 

as 

#15 

above . 

49. 

Same 

as 

#16 

above . 

50. 

Same 

as 

#17 

above . 

51. 

Same 

as 

#27 

above . 

52. 

Same 

as 

#14 

above . 

TR531 

II 
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53. 

Same 

as 

#15 

above . 

54. 

Same 

as 

#16 

above . 

55. 

Same 

as 

#17 

above . 

56. 

Same 

as 

#3 

above . 

57. 

Same 

as 

#3 

above . 

58.  Enter  CNTRL  D on  TTY  and  verify  that 
system  returns  to  DEBUG  control. 

59.  Unload  camera  and  process  film. 

60.  Save  TTY  scroll. 

II  VERIEICATI  ON 

1.  Verify  from  TTY  scroll  that  CLAGRA  processed 
the  three  test  tapes  in  less  time  than  the 
old  programs. 

2:.  Verify  that  the  data  images  from  both  old 
and  new  programs  are  the  same. 
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B.3  COMA  VAR I AN  73  PRINT  PROCESSOR  FOR  16  mm  FILM  (VAR16) 
See  paragraph  2.3.  Revisions  are  as  follows: 


Date  ■ 

Author 

TPS  No. 

15  November  1974 

B.  S.  Miller  . 

Original  TPS  A4 

TPS  No.  A4  follows. 
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2.  TPS  No. 


Non-Configuration 

Change 


. Shoot  Number 


TEST  PREPARATION  SHEET 

NASA  - MANNED  SPACECRAFT  CENTER 


6.  S/C  No. /Modal  No 


10..  Drawings,  Documents.  Ocp's,  & Part  Numborf*) 


13.  System  v 

C.OM  (A  ) 


IS.  TPS  Short  Title  t-J 


17.  Reason  for  Work: 


sf-  "for  the  Vfl£lAfi  *?3  Itomm 


18.  DESCRIPTION  (Print  or  Typo) 


apes  1 and 


(1)  7-  or  9-track  tape  processing 

(2)  Multi-Job  real  • 


(3)  NONE.  VORTEX,  and  TERMINAL  carriage  controls 


(4)  Absence  of  COM  control  records 


(5)  Variable  page  lengths 

Variable  record  lengths 


(7)  Character  repertoire  


1,1  Verify  that  the  system  is  under  DEBUG  control. 


1.2  Mount  Tapes  1 and  1A  on  the  7-  and  9- track  drives 


. Set  switches  to  1 and  2 respective! 


1.3  At  the 


>q  VAR16$J  to  load  the  program  and  pass  control 


to  the  MONITOR.  Verify  that  *M0NIT0R  is  printed 

and  the  command  list  is  displayed  on  the  CRT. 

e TAPE  TYPE/8  d . Verify  the  *0K  is  printed. 


19  Prepared  By 


120  Final  Acceptance  Date 


REFER  TO  PROCEDURES  FOR  REQUIRED  SIGNATURES 


Contractor 


REFER  TO  PROCEDURES  FOR  REQUIRED  SIGNATURES 


**  NKa  IJMIW  .3) 


NASA  M5C  Carol.,  Htmtoo,  Tanas 


Copy  I 


EEPEODOCIBILrrYOFTHa 
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TEST  PREPARATION  SHEET 

CONTINUATION  SHEET 
NASA  - LYNDON  a JOHNSON  SPACE  CENTER 


DESCRIPTION  (Print  or  Typo) 


>e  LINE  PER  PAGE/50  l.  Verify  that  *0K  is 


r in ted. 


Verify  that  the  start  time  and  frame 


number  are  printed. 


Verify  that  the  message  ENTER  TAPE  NUMBER:  is 


rinted. 


e 7N0NE  for  7-track;  9N0NE  for  9-track. 


Verify  that  the  job- time  elapsed,  frame  number,  and 


the  messages  *END  OF  FILEiandXFILES  DON 


rinted  and  that  control  is  returned  to  the  monitor 


rinted 


e CARRIAGE  CONTROLS / 3 A.  Verify  that  *0K  is 


rinted 


Type  GO/  Verify  that  the  start  time  and  frame 
number  are  printed 


Verify  that  "ENTER  TAPE  NUMBER:” 


Type  GO/,  2 fl,.  Verify  that  the  Btart  time  and  frmra 
number  are  printed. 


_Verify  that  ENTER  TAPE  NUMBER:  is  printed.  ' 


7VRTX  for  7-track:  9VRTX  for  9-track. 


Verify  that  the  lob  time  elapsed,  frame  number,  and 
END  OF  FILE3  is  printed. 


VQg*fy  that  the  job  time  elapsed . frame 
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B.4  COMA  VARIAN  73 
See  paragraph  2.4. 
Date 

26  November  1974 
TPS  No.  A5  follows. 
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PRINT  PROCESSOR  FOR  105  mm  , FI CHE  (VAR105), 
Revisions  are  as  follows: 

Author  TPS  No, 

B.  S.  Miller  Original  TPS  AS 
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KtcK*M  i mum  m 


(MSA— MSt— C*»l„  Kxnttc,  T«*o* 
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TEST  PREPARATION  SHEET 

CONTINUATION  SHEET 
NAM  - LYNDON  a JOHNSON  SPACE  CENTER 


DESCRIPTION  (Print  or  Type) 


Type  TAPE  TYPE/8 J,  . Verify  the  *OK  is 


pe  CARRIAGE  CONTROLS/1 


*0K  is  printed. 


LINE  PER  PAGE/50 


is  printed.  


, . Verify  that  the  start  time 


and  frame  number  are 


Verify  that  the  message  ENTER  TAPE  NUMBER 


is  printed.  ___ 


e 7 NONE  for  7-track:  9N0NE  for  9 -track 


♦PILES  DONE  are  printed  and  that  control 


is  returned  to  the  monitor. 


Voe  LINES  PER  PAGE/60  |X.  Verify  that 


♦OK  is  printed. 


e CARRIAGE  CONTROLS/3 


♦OK  is  printed  


pe  GO /J-  Verify  that  the  start  time  and 


frame  number  are  printed 


number  and  *END  OF  FILE 2 and  *FILES  DON 


are  print 


e CARRIAGE  CONTROLS/2 


and  frame  number  are  printed 


Type  7VRTX  for  7-track:  9VRTX  for  9-track 
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TEST  PREPARATION  SHEET 

CONTINUATION  SHEET 
NASA  - LYNOON  B.  JOHNSON  SPACE  CENTER 


DESCRIPTION  (Print  or  Type) 


Verify  that  the  job  time  elapsed,  frame 
number,  and  END  OF  FILE3  is  printed. 


Verify  that  the  start  time  and  frame 

number  are  printed. _ : — 

Verify  that  the  job  time  elapsed,  frame 
number,  and  ***DOUBLE  END  OF  FILE  are 

printed . 

Type  REWIND/ . Verify  that  *0K  is 


r in ted 


TAPE  TYPE/9ii.  Verify  that  *0K  is 


rinted 


w.  Repeat  the  above  starting  with  step  3C. 


Multi-job  reel  


NONE.  TERMINAL,  AND  VORTEX  Carriage  control 


Job  separator,  titling,  forms  and  indexing 


records  


Variable  length  pages 


Variable  length  records 


drives,  respectively.  Set  the  unit  select 


switches  to  1 and  2,-  respective  1~ 


2 Verify  that  the  system  is  still  under  MONITOR 


control  by  the  fact  that  the  command  list  is 


displayed  on  the  CRT. 


*0K  is  printed. 


JSC  FORM  1225A  (JUL  6S) 
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TEST  PREPARATION  SHEET 

CONTINUATION  SHEET 
NASA  - LYNDON  B.  JOHNSON  SPACE  CENTER 


DESCRIPTION  (Print  or  Typo) 


tnsp. 


Cont.  1 NASA 


(d)  Type  GO/ii  . Verify  that  the  start  time  and 


frame  number  are  printed. 


Verify  that  the  iob  time  elapsed,  frame 


number.  *END  OP  PILE  1 and  PILES  DONE  are 


rinted  and  control  returns  to  the  MONITOR. 


(£ ) Type  CARRIAGE  CONTROLS/3  d . Verify  that 


*OK  is  printed. 


e GO/  . Verify  that  the  start  time  and 


frame  number  are  printed.  


Verify  that  the  iob  time  elapsed,  frame 


rinted. 


3e  CARRIAGE  CONTROLS/1 


*0K  is  printed 


e LINES  PER  PA 


is  printed 


GO/ ! 


Verify  that  the  start  time  and 


frame  number  are  printed. 


Verify  that  the  elapsed  job  time,  frame 
number  and  ***DOUBLE  END  OF  FILE  are 


rinted . 


Ml 


LINES  PER  PAGE/60 


Verify  that  *0K  is 


SISO-TR531 
Vol.  II 

B.5  COMA  HCO  TABULAR  PROCESSOR  FOR  10S  mm  FI CHE  (HCOTAB) 

See  paragraph  2.5.  Revisions  are  as  'follows-: 

Date  Author  EO/TPS- No. 

17  June  1974  F.  C.  Ashton  E0-191F  - TPS  A6 

12  July  1974  F.  C.  Ashton  TPS  A7 

TPS  No.  A6  and  A7  follow. 
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use  FORM  122SUUL6S* 

Copy  1 

reproducibility  of  Tm 
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TEST  PREPARATION  SHEET 

CONTINUATION  SHEET 

NASA  - LYNDON  B.  JOHNSON  SPACE  CENTER 


DESCRIPTION  (Print  or  Typa) 


b)  3)  Type  FOCUS  to  focus  the  camera. 


4)  Type  CNTRL  I to  End  the  Focus  Pattern. 


5)  Type  unlabelled/'.  Verify  *0K  is  typed  on  teletype. 


6)  Type  GO/^  to  initiate  processing  of  the  9- Track  HCO 


Gray.  Verify  that  the  starting  time  and  frame  number 


are  typed  on  the  teletype. 


7)  Type  End  Job  to  complete  processing  of  9-Track  HCO 


Gray  Tape.  Verify  that  *0K  is  typed  on  teletype. 


TPS  No. 

S/C 

Cau 

No. 

8)  Record  the  Elapse  Run  Time 


9)  Type  rewind/;  to  rewind  the  1 


that  *0K. 


10)  Type  CNTRL  D to  return  to  debug.  Verify  that  *0K 


is  typed  on  the  teletype. 


11)  Type  PGA;  HCOTAB  $J  to  load  new  varsion  on  HCO 


TAB 


12)  Type  unlabelled.  Verify  *OK  is  typed  on  the  teletype. 


13)  Type  GO/  to  initiated  processing  of  9-Track  HCO  Gray 


tape.  Verify  that  the  starting  time  and  frame  number 


are  typed  on  the  teletype. 


14)  Verify  that  the  elapsed  job  times  frame  number,  page 


number  and  *End  of  File  are  typed  on  the  teletype  to 


signal  completion  of  data  tape  processing. 
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TEST  PREPARATION  SHEET 

CONTINUATION  SHEET 
NASA  - LYNDON  B.  JOHNSON  SPACE  CENTER 


DESCRIPTION  (Print  or  Type) 


15)  type  End  Job  to  complete  processing  of  9-Track  HCO  Gra 


tape.  Verify  that  *0K  is  typed  on  the  teletype. 


17)  Type  rewind/  to  rewind  the  9-Track  HCO  TAB  verify 


that  *0K  is  typed  on  the  teletype. 


18)  Type  CNTRL  D to  return  to  debug.  Verify  *Debug  is 


typed  on  the  teletype. 


19)  Type  ECA;  HCO  TAB  $J  to  load  the  new  version  HCO  TAB 


program  verify  that  *Monitor  is  typed  on  the  teletype 


20)  Type  USE/2  to  change  7-Track  unit.  Verify  *OK  is  typ 


on  the  teletype. 


21)  Type  tape  type/8  to  change  to  7-Track,  800  BPI 


Verify  *0K  is  typed  on  the  teletype.  


22)  Type  unlabelled/  verify  *OK  is  typed  of  the  teletype 


23)  Type  GO/"  to  initiate  processing  of  7-Track  HCO  TAB 


tape.  Verify  the  starting  time  and  frame  number  are 


on  the  teletype. 


24)  Verify  that  the  elapsed  job  time,  frame  number,  page 


number  and  * End  of  File  are  typed  on  the  teletype’ to 


signal  completion  of  Data  Tape  processing. 

i 7-  SzL  5- $ '7,r 

25)  Type  .end  job / . to  complete  processing  of  HCO  TAB  Tape 
Verify  that  *0K  is  typed  on  the  teletype. 


' 26)  Type  Clear  twice  to  advance  exposed  film  into  the 

- take-up  magazine.  Verify  that  *OK  is  typed  on  the 
JSC  FORM  122SA  UUL  SS) 


COPY  1- 
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. TEST  PREPARATION  SHEET 

CONTINUATION  SHEET 
NASA  - LYNDON  B.  JOHNSON  SPACE  CENTER 


S/C  Cat. 


DESCRIPTION  (Print  or  Typ») 


Cont.  I NASA 


b)  26)  teletype  after  each  Clear. 


27)  Type  rewind/-  to  rewind  the  7-Track  HCO  gray.  Verify 


that  *0K  is  typed  on  the  teletype. 


28)  Type  CNTRL  D to  return  to  Debug  verify  * Debug  is  type 


teletype. 


c)  AT  the  tape  transport 


1)  Dismount  9- Track  HCO  and  7-Track  HCO  tape. 


d)  Test  result  verification 


1)  Process  105mm  film  containing  results. 


2)  View  the  resulting  105mm  microfiche  on  the  Bell  & 


Howell  viewgraph. 
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1 . n Configuration 

T n Change 

Y — : 

p n Non-Configuration 

E D Change 


4.  Mod.  Sheet  Number 


6 S/C  No /Model  No 


TEST  PREPARATION  SHEET 

NASA  - LYNDON  B.  JOHNSON  SPACE  CENTER 


13.  Syitem 


Computer  to  Microfilm 


2.  TPS  No.  ^ * 

3 S/C  Cat. 


9.  Need  Date 

27  July  74 


1 1 Contract  Number 


12  Serial  Number 


14.  Ref  E.  O Number 


17.  Reason  for  Work: 


To  verify  Title  Fiche  Development  for  H 


(FR80  CLARIFICATION  FORM  A17) 


18  DESCRIPTION  [Printor Type) 


TEST  PROCEDURES 


HCO  Tab  Test 


a) 

At 

the  7 -Track  Tape  Transport: 

(1) 

Mount  Tape  Number  3181. 

b) 

At 

the  Teletype: 

U) 

Type  FCA ; HC0TAB$  J TO  LOAD  program. 

Verify  that  *MONITOR  is  typed  on 

the 

• . Teletype. 

(2)‘ 

Type  CLEAR/iX.  to  advance  exposed 

film 

into  the  take-up  magazine.  Verify  that 

*OK  is  typed  on  the  Telet; 


(3)  Type  UNLABELLED/i . Verify  *OK  is  typed 


on  the  Teletype. 

(4)  Type  TAPE  TYPE 

8i-.  Verify  *OK  is  typed 

on  the  Telet 

YR 

e. 

(5)  Type  . USE 2 it. 

Verify  *OK  is  typed  on 

9 Prepared  By 


REFER  TO  PROCEDURES  FOR  REQUIRED  SIGNATURES 


20  Final  Acceptance  Date 


REFER  TO  PROCEDURES  FOR  REQUIRED  SIGNATURES 
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TEST  PREPARATION  SHEET 

CONTINUATION  SHEET 
NASA  - LYNDON  B.  JOHNSON  SPACE  CENTER 


DESCRIPTION  (Print  or  Type) 


(6)  Type  GO&,.  Verify  Time  and  Frame  is 


typed  on  the  Teletype. 

(7)  When  ENTER  SOURCE  TAPE  is  typed  on  the 


Teletype,  type  3299  -3181-  


(8)  When  ENTER  COM  TAPE  is  typed  on  the 


Teletype,  type  7 -TRACK  . 

(9)  When  ENTER  ROLL  is  typed  on  the  Teletype 


type  HCO  TAB.  


(10)  Type  CNTRL  A.  Verify  that  *M 


typed  on  the  Telet 


(11)  Type  REWIND  &.  Verify  that  *OK  is  typed 
on  the  Teletype.  


12)  Type  CLEARS  Verify  that  * 


on  the  Teletype.  


(13)  Type  CLEARS.  Verify  that  *OK  is  typed 


on  the  Telet 


(14)  Type  CNTRL  D to  return  to  DEBUG.  Verify 


* DEBUG  is  typed  on  the  Teletype. 


c)  At  the  7-Track  Transport,  dismount  th 


d)  Test  Result  Verification 


(1)  Process  105mm  containing  results. 


(2)  View  the  resulting  105mm  microfiche  on 


the  Bell  and  Howell  Viewgraph. 


TPS  No. 

/9  7 

S/C 

Cat. 

No. 

JSC  FORM  1225 A (JUL-651 


REPRODUCIBILITY  oe  the 
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B . 6 COMA  PDP  11/45  PRINT  PROCESSOR  FOR  16  mm  FILM  (PDP16) 

See  paragraph  2.6.  Revisions  are  as  follows: 

Date  Author  TPS  No. 

21  January  1974  V.  D.  Pote  TPS  A8 

TPS  No.  A8  follows. 
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A Configuration 
Chang* 

* Y 

P n Non-Configuration 

E B Change 


13  System  14  Ref  E O.  Number 

Computer  to  Microfilm 


15  TPS  Short  Title 

PDPll  Tab  Print  Software  Acceptance  Test 


7.  Reason  for  Work: 


for  microfilm  output  of  PDPll  FORTRAN  generated 


TEST  PROCEDURES 


TEST  PREPARATION  SHEET 

NASA  - LYNDON  B.  JOHNSON  SPACE  CENTER 


18  DESCRIPTION  (Print  orTypo) 


PDPll  Tab  Print  Acceptance  Test 


. At  the  Tape  Transport 


(1)  Mount  Tab  Test  Tape 


At  the  Teletype 


PRO; PDP16$J  to  load 


Verify  that  *MONITOR  is  typed  on  the 


teletype. 


( 2 ) Type  CLEAR/^,  twice  to  advance  exposed 


film  into  take-up  magazine.  Verif 


that  *OK  is 


ed  o 


each  CLEAR/ 


(3)  Type  GOi  to  initiate  processing  of 


the  tape.  Verify  that  the  starting 


time  and  frame  number  are  typed  on  the 


teletype. 


(4)  Verify  that  Job  Separator  is  written  on 


film  by  monitoring  the  CRT. 


20  Final  Acceptance  Date 


REFER  TO  PROCEDURES  FOR  REQUI  RED  SIGNATURES 


REFER  TO  PROCEDURES  FOR  REQUIRED  SIGNATURES 
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TEST  PREPARATION  SHEET 

CONTINUATION  SHEET 

NASA  - LYNDON  B.  JOHNSON  SPACE  CENTER 


DESCRIPTION  (Print  or  Typo) 


5).  Verify  that  Job  Se para 


TAPE  NUMBER”  are  tvDed  on  th 


written  on.  film  in  eyeball  size 


characters  by -monitoring  the  CRT. 


At  this  time,  mark  present  time. 

(9)  Verify  that  processing  is  proceeding  by 
monitoring  the  CRT. 


. Mark 


2_ 

~3 

T 

I 

film. 


2.  PDPil  Tab  Print  Older  Version  

Restore  production  version  of  program  and 

step  1 excluding  step  b. (7)y; . 

« < v*  <* 

j—  I>3veloP  £ilm  a«t3  verify  that  film  from  both 
versions  is  identical. 

4.  Calculate  manually  the  time  savings  of  the  new 

-ersion  usin9  the  timing  statistics  gathered. 

&gvu  4:?rS”'  

i .1  /'•  i 


PJr***^*^* J I 


JSC  FORM  1Z2SA  (JUL  651 


copy  i 


n WS0BUC3BILITY  OF  THE 
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B . 7 COMA.  PDP  11/45  PRINT  PROCESSOR  FOR  105  nun-  FICHE  (PDP105) 
See  paragraph  2.7.  There  are  no  revisions  to  this  program. 


B-68 


SISO-TR531 
Vol.  II 


B . 8 COMA  HARVARD  COLLEGE  OBSERVATORY  SOLAR  EXPERIMENT  S055  GRAY- 
LEVEL  9 -TRACK  PROCESSOR  (S055) 

See  paragraph  2.8.  Revisions  are. as  follows: 

Date  Author  EO/TPS  No. 

( 

28  November  1973  F.  C.  Ashton  Original  EO-191 

TPS  A9 

TPS  A9  follows.  See  also  paragraph  B.8.1,  tables  B-17  and  B-18 
and  figures  B-10  through  B-12. 
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1 A 

h«M»  J 

Cbanyo  < j 

j :bi 

■i  Mo  1 

, Nr.n  C ^'I'lguration  | 

TEST  PREPARATION  S.HEET 

Oil'  ,*  . ! 

Flmi'f  Nu  ibor 

i 

NASA -MANNED  SPACECRAFT  CENTER 

2 TPS  No 


10  Drawrn^j*.  Dojurnerrt*,  Ocps  & Pari  Number(s) 


9 Nfed  Data 

1 December  1973 


11  Contract  Number 

NAS9-1261 


12  Serial  Number 


i C*  System 


Computer  to  Microfilm 


16  V/t  Roq 


18  DESCRIPTION  (Print  or  Type) 


TEST  PROCEDURES 


J3 


Imp 


22  CONT  23  NAS* 


teletype . 


. twice  to  advance  exposed 


film  into  the  take-up  magazine.  Verify 

that  *0K  is  typed  on  the  teletype  after 

each  CLEAR/J*. 


(3)  Type  UdLABELED/ ^ . Verify  *0K  is  typed 


on  the  teletype. 


(4)  Type  GO/fr.  to  initiate  processing  of 


Tap 


20.  Final  Acceptance  Date 


RFFER  TO  PROCEDURES  FOR  REQUIRED  SIGNajURES 


Date 


* ***  \ Ji,i  4«» 


NASA-— WSC — Coml„  Houston,  Toxot 


mt  _ v-up 

reproducibility  of  tl 

-n  \ to  x>nrn^ 


'll 
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TEST  PREPARATION  SHEET 

CONTINUATION  SHEET 

NASA  . MANNED  SPACECRAFT  CENTER 


FORM  out  6*1 
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T£S7  PREPARATION  SUE?:  i 

CONTINUATION  SHEET 

N ASA  - MANNED  SPACECRAft  CENTER 


DESCRIPTION  (Pf»nt  o'  Typ*) 


(4J_  Tygo  CLlIAR/p^  to  advance  exposed  film  - 

into  the  take-up  magazine.  Verify  that 
*0K  is  typed  on  the  teletype  after  each 

CLEARS. 

(5)  Type  GO/,),  to  initiate  processing  of  S055 


that  th e_  starting  t lire  and  frame  number 

are  typed  on  the  te letyggj 

(6)  Verify  that  the  elapsed  job  time,  frame 


number,  and  *END  OF  FILE  are  typer 

teletype  to  signal comple txon_of_ r 

tape  processing. 


(7)  Type  END  J OB/J),  to  com 


the  S055  Acceptance  Test  Tape 


Verify  that  *0K  is  typed  on  the  telety 


that  *OK  is  typed  on  the  telet 


ance  Test  Tape  (Tape  2) . Verify  that  *0 


is  typed  on  the  teletype. 

At  the  Tape  Transport:  , 


1)  Dismount  the  S055  Acce 


(Tape  2). 


the  results  match  Test  1 as  described i 

Paragraph  1 of  the  accompaning  handout 


and  Test  2 and  Test  3 as  described  in 


Paragraphs  2 and  3 . 
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DAT  F 'JfOUIR.J 
n r w ' , 

1 . 

.PURPOSE  > 

* affected  documents 

|/~t  HE*  REQUIREMENT 

1 1 REVISION 
1 1 CUR  1 FI  CAT  ION 

1 1 OTHER 

m TR-531 
| 1 OTHER- 

e 

. 

O&tGINATOR  OFFICE 

J.  Conlan  Harvard  U. 

*“‘<4^/-  "/V 7> 
F.  E.  Jones 

DATE 

SUBJECT* 


Modifications  to  the  S055  Gray  Level  and  Tab  Procrams 

RCfCBENCC* 

TEXT  i 

The  Principal  Investigators  have  requested  that  several s changes  be  incorporated  into  vhe 
S055  Gray  Level  and  tab  programs. 

PHO  is  requested  to  implement;  the  following  changes: 

Gray  Level 

1.  Rotate  images  90  degrees  counterclockwise. 

2.  -Change  format  to  be  7 rows  by  12  or  more  columns. 

3.  Change  the  "title"  record  to  accomodate  new  title  information.  The  new.  title 
information  will  be  defined  later. 

e 1 

’4.  Shift  every  other  scan  line  (2,  4,  6 , etc.)  a fraction  of  a pixel.  The  fraction  vil 
be  defined  later.  The  characters  on  the  right  may  be  dropped^ 


5 • Provide  the  capability  to  accept  a control  word  to  skip  a data  frame  position  on 
film*  505?  Tabs  * 

Implament~the  capability  to  handle  the  S055  tabs  formatted  in  the  DTE  language 
The  output  will  be  on  Fiche.  . b 


INSTRUCTIONS 

1*  All  FMST*s  shall  be  routed  through  DSS  secretary  for  assignment  of  control  nimber* 

2.  Subject  is  the  function  to  be  changed  or  clarified. 

3.  Text  shall  be  included  in  area  provided  or  on  attached  sheets. 

• 

OSS  APPROVAL 

PHO  APPROVAL 

sj  onatuo  S^1  / y /yy  ‘ 
CornejAns  J.  Sullivan 

^armlerF^Bt^anborn 

SIGNATURE  ^7 

DATE  ^ 

C(fss  /fy.3 

WSSEBSSHEtKttL 

n/^/xs 

BSC  Form  757  (Del  72)  nasa — msc 
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B.8.1  Test  1,  64  Shade  Frames . This  test  shall  be  contained  on 
tape  1 and  shall  consist  of  header  data  and  gray-level  data  to 
build  64  images  of  60  lines  of  120  pixels  per  image.  This  will 
demonstrate  maximum  image  size,  multiple  images  per  fiche,  multiple 
fiche  per  job,  and  all  possible  shades  of  gray.  Header  data  shall 
consist  of  three  lines  per  frame,  each  line  containing  132  alpha- 
numerics.  Gray-level  data  shall  be  constructed  as  illustrated 
in  figure  B-10  and  table  B-17.  Each  image  will  be  a unique  gray- 
level  as  defined  in  figure  B-10. 

B.8.2  Test  2,  64  X-Shade  Bars.  This  test  and  test  3 shall  be 
contained  on  tape  2.  This  test  shall  consist  of  header  data  and 
gray-level  data  to  build  four  frames  of  60  lines  of  120  pixels 
per  image.  This  pattern  will  demonstrate  ascending  shade  bars 
in  the  X-axis.  Header  data  shall  consist  of  three  lines  per 
frame,  each  line  containing-  132  alphanumerics . Gray-level  data 
shall  ,be  constructed  as  illustrated  in  figure  B-ll  and  table  B-17. 
Each  image  will  consist  of  16  unique  gray-levels  as  defined  in. 
figure  B-ll. 

B.8.3  Test  3,  Every  Fourth  Shade  X-Bars.  This  test  shall  con- 
sist of  header  data  and  gray-level  data  to  build  four  frames  of 
60  lines  of  120  pixels  per  image.  This  pattern  will  test  con- 
trast levels  between  every  fourth  gray-level.  Header  data  shall 
consist  of  three  lines  per  frame,  each  line  containing  132  alpha- 
numerics.  Gray-level  data  shall  be  constructed  as  illustrated 
in  figure  B-12  and  table  B-17.  Each  image  will  consist  of  16 
unique  gray-levels  as  defined  in  figure  B-12. 
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TABLE  B-17 


$055  GRAY-LEVEL 

TESTS 

TEST/TAPE 

NO. 

PURPOSE 

CONTENT/ FORMAT 

1/1 

TEST  MAXIMUM  IMAGE  SIZE,  MUL- 
TIPLE IMAGES  PER  FICHE,  MULTIPLE 
FICHE  PER  JOB,  AND  64  SHADES  OF 
GRAY 

THREE  HEADER  RECORDS  AND  60 
GRAY-LEVEL  RECORDS  PER  FRAME, 

64  FRAMES,  IN  FIXED-LENGTH 
RECORDS.  BLOCKED  AT  1320  BYTES 
PER  BLOCK.  TEST  DISPLAYS  FOR 
THE  ABOVE  MENTIONED  RECORDS  ARE 
DEFINED  IN  PARA  B.8.1 

2/2 

TEST  64  ASCENDING  X-SHADE  BARS. 
FOUR  FRAMES,  16  SHADES  PER 
FRAME 

THREE  HEADER  RECORDS  AND  60 
GRAY-LEVEL  RECORDS  PER  FRAME, 
FOUR  FRAMES,  IN  FIXED-LENGTH 
RECORDS  BLOCKED  AT  1320  BYTES 
PER  BLOCK.  TEST  DISPLAYS  FOR 
THE  ABOVE  MENTIONED  RECORDS  ARE 
DEFINED  IN  PARA  B.8.2 

3/2 

COMPARE  CONTRASTS  BETWEEN 
EVERY  FOURTH  GRAY-LEVEL  IN 
ASCENDING  X-SHADE  BARS 

THREE  HEADER  RECORDS  AND  60 
GRAY-LEVEL  RECORDS  PER  FRAME, 
FOUR. FRAMES,  IN  FIXED-LENGTH 
RECORDS  BLOCKED  AT  1320  BYTES 
PER  BLOCK.  TEST  DISPLAYS  FOR 
THE  ABOVE  MENTIONED  RECORDS 
ARE  DEFINED  IN  PARA  B.8.3 

REPRODUCIBILITY  OE  TTn?1 
ORIGINAL  PAGE  IS  POOR 
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3 HEADER  LINES  f TAPE  2,  TEST  2,  64  SHADE  BARS  ALTERNATE  EVERY  4TH  SHADE  X fc-XXXX 

132  CHARACTERS  { TAPE  2,  TEST  2,  64  SHADE  BARS  ALTERNATE  EVERY  4TH  SHADE  X B>XXXX 

EACH  v TAPE  2,  TEST  2,  64  SHADE  BARS  ALTERNATE  EVERY  4TH  SHADE  X S»XXXX 


60  SCAN  LINES 
120  PIXELS 
EACH 

+12  ALPHAS 


SCAN  01 


XI 32 


TEST  2.  GRAY-SHADE 
FRAMES:  15  PIXELS/ 

SHADE,  30  LINES/ 
SHADE;  UTILIZE  EVERY 
4TH  SHADE  FOR  EACH 
RANGE 


FRM 

SHADES 

1 

0-60 

2 

1-61 

3 

2-62 

4 

3-63 

1 

XI 32 


< 

o 


Figure  B-12  Test  3,  Every  Fourth  Shade  X-Bars 
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TABLE  B-18 
USER  FICHE  TITLES 


TAPE  NO. 

TITLE 

1 

SKYLAB  SOLAR  EXPERIMENT  S055 
TEST  TAPE  NO.  1 
TEST  1 — 64  FRAMES,  UNIQUE 
GRAY-LEVEL  PER  FRAME 

2 

SKYLAB  SOLAR  EXPERIMENT  S055 
TEST  TAPE  NO.  2 
TEST  1 AND  tEST  2 
X-SHADE  BARS 
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See  paragraph  2.9.  Revisions  are  as  follows. 

Date  Author 

10  September  1974  F.  C.  Ashton 

10  September  1974  F.  C.  Ashton 

22  October  1975  J.  S.  Bennett 

TPS  No.  A10,  All  and  A21  follow. 
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TPS  No. 

TPS  A10 
TPS  All 
TPS  A21 
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4.  Med.  Sheet  Number 


6.  S/C  No. /Model  No 


TEST  PREPARATION  SHEET  I 3 s/c  I ^ 
NASA- MANNED  SPACECRAFT  CENTER 


0.  Drowingj,  Document*,  Ocp'».  4 Part  Numberfi) 


13  Syitam 
COM-A 


15.  TPS  Short  Title 

12K  Print 


9 Need  Date  , 


11.  Contract  Number 


!2  Serial  Number 


14  Ref.  E.  O.  Number 


16  Wt.  Req. 


- 105mm  Camera 


17.  Reason  for  Work; 


Installing  the  new  12K  Print  Program  for  105  mm  Camera 


18  DESCRIPTION  (Print  or  Typo) 


INTRODUCTION 


The  new  12K  Print  Program-  will  he  tested  aqainst 


the  old  Print  Program.  The  new  program  is 


MONs 105NAS;  the  old  program  is  PRO;105PR. 


1)  At  the  Tape  Transport  mount  Test  ' 


J to  load 


the  new  105  Print  Program. 


3)  At  the  Teletype,  type  FOCUS/7 , 0 , 1^  to  focus 


the  system. 


*0K  is  printed  on  the  Teletype. 


5)  At  the  Teletype,  type  SKIP/^.  To  skip  dummy 


labelf  verify  that  *0K  is  printed  out  on 


6)  At "the  Teletype,  type  GO/^  Verify  that  time 
and  frame  is  printed  out  on  the  Teletype. 


19.  Prepared  By 


[20  Final  Acceptance  Date 


REFER  TO  PROCEDURES  FOR  REQUIRED  SIGNATURES 


Contractor  I Date  | NASA 


REFER  TO  PROCEDURES  FOR  REQUIRED  SIGNATURES 


Date 


*SCtO*M  1325  (AU,  *3) 


NASA — MSC Co  ml.,  Heutfoa,  Texas 


B-81 


BEPBODUCIBILITY  of  the 

page  is  poor 


SIS0-TR5  31 
Vol . II 


TEST  PREPARATION  SHEET 

CONTINUATION  SHEET 
NASA  - LYNDON  a JOHNSON  SPACE  CENTER 


DESCRIPTION  (Print  or  Typal 


7)  When  END  OF  FILE  is  printed  out  on  the  Telet 


8)  Record  the  time  and  frame. 


FRAME 


e FRAME/O  i.  to  reset 


II)  At  the  Tape  Transport 


A)  Dismount  Tape  2. 


, B)  Mount  Tape  2A. 


12)  At  Teletype,  type  SKIP/A-.  V“y"{  *r'v 


is  printed  out  on  the  Telet 


13)  At  the  Teletype,  type  GO/jJ,.  Verify  that 


time  is  printed  out  on  the  Teletype, 


14)  When  END  OF  FILE  is  printed  out  on  the  Telet 


type  END  OF  JOB. 


15)  At  the  Teletype,  type  REWIND /$,  to  rewind  to  the 


tape. 


Verify  that  *0K 


A)  Dismount  Tape  2 , 


B)  Mount  Tape  6 


type  FRAME/O A-  to  ; 


frame/ count. 


e STANDARD  LABELS 


set  check  standard  label. 


is  printed  out  on  the 


21)  Record  time,  frame 


is  printed  out. 
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TEST  PREPARATION  SHEET 

CONTINUATION  SHEET 
NASA  - LYNDON  B.  JOHNSON  SPACE  CENTER 


DESCRIPTION  (Print  or  Typ*} 


22)  At  the  Teletype,  type  REWIND  to  rewind  the 


tape . 


23)  At  the  Tape  Transport 


A)  Dismount  Tape  6. 


B)  Mount  Tape  2 . 


24)  At  the  Teletype,  type  CNTRL  D to  enter  DEBUG. 


25)  At  the  Teletype,  type  PRQ;105PR$J  to  load  the 
old  105mm  Print  Program. 


27)  At  the  Teletype,  type  SKIP/ 


28)  At  the  Teletype,  type  GO/fr..  Verify  that  time 


is  printed  out  on  the  Teletype. 


29)  When  END  OF  FILE  is  printed  out  of  the  Telet' 


in  END  JOB. 


30)  Record  time,  frame,  page. 


TI 


31)  At  the  Teletype,  type  REWIND/ v to  rewind  Tape. 


32)  At  the  Teletype,  type  FRAME/0i<  to  reset 


frame  count. 


33)  At  the  Tape  Transport 


A)  Dismount  Tape  2. 


B)  Mount  Tape  2A. 


34)  At  the  Teletype,  type  GO/V  Verify  that  time 
is  printed  out  on  the  Teletype. 


35)  When  END  OF  FILE  is  printed  out. 


36)  Record  the  time,  frame,  page. 


FRAME  ZZ-  PAGE  , 


37)  At  the'  Teletype,  type  REWIND  A,  to  rewind  the 


tape. 


38)  At  the  Teletype,  type  FRAME/Oj,  to  reset  frame 
count. 


JSC  FORM  1225 A UUL65) 


BEPRODUCBILITY  OF  THE 
ORIGINAL  PAGE  IS  POOR 
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'O***  ’KSgJW  «} 


NASA~ — MSC — Coml.*  Houtbn,  Toxoi 


REPRODUCIBILITY  OF  THE 
ORIGINAL  PAGE  IS  POOH 
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TEST  PREPARATION  SHEET 

CONTINUATION  SHEET 

MAS*  - MANNED  SPACECRAFT  CENTER 


DESCRIPTION  (Pm!  or  Typ.) 


to  rewind 


6)  At  the  Teletype,  t 


the  tape. 


Erame  count. 


8)  At  the  Tape  Transport - 

A)  Dismount  Test  Tape  1 


B)  Mount  Test  Tape  1A 


9)  At  the  Teletype,  ty 


frame  and  Job  ID  is  printed  out  on  the  Telet 


10)  When  *END  OP  JOB  and  *END  OF 


out  on  the  Teletype,!  record  the  time  and  frame 


count. 


FRAME 


11)  At  the  Teletype,  type  REWIND/t  to  rewind  the 


A)  Dismount  Tape  1A 


B)  Mount  Tape  1 


.3)  At  the  Teletype,  type  CLEAR/, 


.4)  At  the  Teletype,  type  CNTRL  to  enter  DEBUG. 


e PRO: 16PRNTSJ. 


6)  At  the  Teletype,  type  GO/a.  Verify  that  time. 


frame,  and  Job  ID  is  printed  out  on  the  Teletype 


.7)  When  *END  OF  JOB  and  *END  OF  FILE  is  printed  out 


on  the  Teletype,  record  the  time  and  frame  count 


TIME  V ‘ $- 


,8)  At  the  Teletype,  type  REWIND/  to  rewind  the 


tape. 


frame  count. 


0)  At  the  Tape  Transport 


Dismount  Test  Tape  1 


B)  Mount  Test  Tape  1A 
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TEST  PREPARATION  SHEET 

CONTINUATION  SHEET 

NASA  - MAN  Ml  0 3PACICRAFT  CINTIB 


DESCRIPTION  (Prinl  or  Typo) 


21)  At  the  Teletype,  type  GO/j^,.  Verify  that  time. 


frame  and  Job  ID  is  printed  out  on  the  Teletype. 


22)  When  *END  OF  JOB  and  *END  OF  FILE  is  printed  out 


on -the  Teletype,  record  the  time  and  frame  count 


~R-  FRAME  /j 


23)  At  the  Teletype,  type  REWIND/^,  to  rewind  the 


tape. 


24)  Process  the  film. 


TPS  No 

fin 

$;c 

Co** 

MSC  FORM  1 22SA  UlIL  Ml 


COPY  1 
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A 

Configuration 

Change 

B 

Non-Configuration 

Change. 

Mod  Sheet  Number 


6.  S/C  No  /Model  No 


rawmgs,  Documents,  Ocp  s,  & Part  Numbers 


13  System 

COMA 


TPS  Short  Title 


12  Serial  Number 


14  Ref  E.  O Number 

TIRF  5235 


17.  Reason  for  Work 


""  °r  r Verification  of  Fiche  Print  Program  (105PR)  index  form 
and  index  flash  modifications. 


Insp  , 


22CONT  123  NASA 


TESTS 


A.  Load  the  105mm  camera.  Use  a leader  in  the 


take  up  magazine. 


B.  At  the  teletype: 


Verify  that  the  system  is  under  DEBUG 


control. 


2.  Enter  P$J 


. Focus  the  PLS  according  to  the  procedure 


on  the  inside  of  the  camera  bay  door. 


Enter  a space  on  the  TTY  to  return  to 


DEBUG  control . 


5.  Enter  105PR$J  on  the  TTY. 


. Verify  that  *MONITOR  is  typed  by  the 


program. 


. Enter  CLEAR/ ( CR)  on  the  TTY.  Verify 


HI 

a 


a 

a 


f8.  Enter  CLEAR/ (CR)  on  the  TTY.  Verify 


that  *OK  is  typed. 


9.  Prepared  By 


REFER  TO  PROCEDURES  FOR  REQUIRED  SIGNATURES 


120  Final  Acceptance  Date 


REFER  TO  PROCEDURES  FOR  REQUIRED  SIGNATURES 


CotMractor 
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9.  Place  data  switch  8 in  the  up  position. 

10.  Mount  COM  test  tape  #D2  on  the  9-TRK 
drive.  Set  the  unit  select  switch  to  #1. 

11.  Enter  <?0/ (CR)  to  start  processing  of  the  test 
tape.  Verify  that  the  start  time  and  frame 
number  are  typed. 

12.  Verify  that  the  stop  time,  frame  number, 
and  *END  OF  FILE  are  typed  at  completion 
of  job. 

13.  Enter  REWIND/ (CR)  to  rewind  test  tape. 

Verify  that  *OK  is  typed. 

14.  Return  the  system  to  DEBUG  control. 


t/ 


15.  Dismount  test  tape  #D2  and  mount  test  tape 
#12762  on  the  9-TRK  drive. 

16.  Enter  105PR  on  the  TTY. 

17.  Verify  that  *M0NIT0R  is  typed  by  the  program. 


1/ 


18.  Enter  G0/(CR)  to  start  processing  of  the 

test  tape.  Verify  that  the  start  time  and  frame 
number  are  typed. 


19.  Verify  that  the  stop  time,  frame  number, 

and  *END  OF  FILE  are  typed  at  completion  of 
job. 


20. 

Enter  REWIND/ (CR)  to  rewind  test  tape 
that  *0K  is  typed. 

. Verify 

21. 

Enter  CLEAR/ (CR)  on  .the  TTY.  Verify 
is  typed. 

that  *0K 

22. 

Enter  CLEAR/ (CR)  on  the  TTY.  Verify 
typed. 

that  *OK  ; 

23. 

Return  the  system  to  DEBUG  control. 

24. 

Process  105mm  film. 

25. 

Save  TTY  scroll. 

( 
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II.  Verification 

A.  Verify  that  the  entries  in  the  index  page  are 
listed  sequentially  down  the  - page  rather  than 
across. 

B.  Verify  that  there  are  no  multiple  entries  for 
any  one  page. 
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B.10  COMA  HARVARD  COLLEGE  OBSERVATORY  SOLAR  EXPERIMENT  S05S 
GRAY-LEVEL  7-TRACK  OR  9-TRACK  PROCESSOR  (HCO) 

See  paragraph  2.10.  Revisions  are  as  follows: 

Date  Author  EO/TPS  No. 

28  November  1973  F.  C.  Ashton  E0-191F  - TPS  A12 

17  June  1974  F.  C.  Ashton  EO-191F  - TPS  A13 

12  July  1974  F.  C.  Ashton  TPS  A14 

TPS  No.  A12,  A13  and  A14  follow. 


B-  91 


SIS0-TR5  31 
Vol.  II 


2.  TPS  No 


Non  Configuration 
CHo'ryo 


4 Mod  Shoot'  Number 


6 $ 'C  No  /Model  No. 


TEST  PREPARATION  SHEET 
NASA -MANNED  SPACECRAFT  CENTER 


10  Drawings.  Documents,  Ocps.  & Port  Numbers) 


13  System 

Computer  to  Microfilm 


S5  TPS  Short  Title 

HCO  Software  Acceptance  Test 


17  Roa«on  for  Work 


5 Page  ^ 

af  ^ 

9.  Need  Date 

1 December 

73 

11  Contract  Number 

NAS9-1261 

12.  Serial  Number 

14.  Ref  E O Number 

19  IF 

To  venfv  the  software  develo 


the  HCO  as  defined  in  PHO  SH-25722  and 


18-  DESCRIPTION  (Print  or  Type) 


TEST  PROCEDURES 


O Acceptance  Test  -'Tape  2 


a.  At  the  Tape  Transport: 


• (1)  Mount  S055  Acceptance  Test  Tape  2 


(1)  Type  PRO; HCO  $J  to  load  HCO  Program. 


Verify  that  *MONITOR  is  typed  on  the 

teletype. 

(2)  Type  CLEAR/jp  twice  to  advance  exposed 
film  into  the  take-up  magazine.  Verify 


that  *OK  is  typed  on  the  teletype  after 


each  CLEAR/j),. 


(3)  Type  UNLABELED/j,.  Verify  *OK  is  typed 


on  the  teletype. 


(4)  Type  SKIP/^.  to  bypass  the  standard  labe' 


on  the  tape.  Verify  that  *0K  is  typed 


on  the  teletype . 


1 20  Final  Acceptance  Date 


Insp. 


2?  CO^JT  23  NASA 


19  Prepared  By 


REFER  TO  PROCEDURES  FOR  REQUIRED  SIGNATURES 


Contractor 


REFER  TO  PROCEDURES  FOR  REQUIRED  SIGNATURES 


Date 


MSCIOtM  l?J MJUL 


NASA — M5C — 'Corel.,  Houston,  Toni 


Copy  1 


swomobiub  0F  TH 
obigdtal  page  is  poos 
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TEST  PREPARATION  SHEET 

CONTINUATION  SHEET 

NASA  - MANNED  SPACECRAFT  CENTER 


DESCRIPTION  (Print  or  Typo) 


(5)  Type  GO/ir  to  initiate  processing  of  5055 


Acceptance  Test  Tape  (Tape  1) . Verify 


that  the  starting  time  and  frame  number 


the  teletype 


to  complete  processin 


of  SO 5 5 Acceptance  Test  Tape 


Verify  that  *0K  is  typed  on  the  telet 


into  the  take-up  maqazine.  Verify  that 


*0K  is, typed  on  the  teletype  after  each 


CLEAR/V. 


(9)  Type  REWIND/V  to  rewind  the  S055  Test 


Verify  that  *0K  is 


/pe  CNTRL  D to  return  to  DEBUG.  Verif 


*DEBUG  is  typed  on  the  teletype. 


. At  the  Tape  Transport 


1)  Dismount  the  S055  Acceptance  Test  Tape 


S055  Acceptance  Test  Tape  2 


. At  the  Tape  Transport 


(1)  Mount  HCO  Acceptance  Test  Tape  (Tape  3) 


. At  the  Teletype 


(1)  Type  PRO; HCO  $J  to  load  S055  program. 

Verify  that  *MONITOR  is  typed  on  the 


teletype. 


(2)  Type  UNLABELED/J-.  Verify  that  *OK  is 
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TEST  PREPARATION  SHEET 

CONTINUATION  SHEET 

NAS*  - MANNED  SPACECRAFT  CENTER 


DESCRIPTION  (Print  or  Typa) 


(3)  Type  CLEAR/X.  -to  advance  exposed  film  

into  the  take-up  magazine.  Verify  that 


*0K  is  typed  on  the  teletype  after  each 


CLEAR/^. 


(4)  Type  GO/V  to  initiate  processing  of  S055 


Acceptance  Test  Tape  (Tape  2) . Verify 


that  the  starting  time  and  frame  number 


the  teletype  to  signal  completion  of 

data  tape  processing. 


(6 J Type  END  JOB/k-  to  complete  processing 

of  the  HCO  Acceptance  Test  Tape  (Tape  3} 


Verify  that  *0K  is  typed  on  the  teletype 


that  *OK  is  typed  on  the  teletype  after 


each  CLEAR/V . 


Tape  Transport: 

(1)  Dismount  the  HCO  Acceptance  Test  Tape 


(Tape  3) . 


fORM  \f  ’SA  IJUL 


Sr ® 

PACfVi  is  pooj? 


B-  94 


SIS0-TR531 
Vol.  II 


I 

Configuration  - 
Change 

a 

Non-Configuration 

Change 

A Mod.  Sheet  Number 


6 SIC  No./Model  No  7 Date 

TO  drawings.  Documents.  Chip's.  & ParTNumberTsT 


13  System 

Computer  To  Microfilm 
'f  fP$  ShorTfitie 

HCO  Gray  7 -Track  and  9- Track 


TEST  PREPARATION  SHEET 

NASA  - LYNDON  B.  JOHNSON  SPACE  CENTER 


2 TPS  No 

A t3 

3 S/C 

Cat. 

No. 

9 Need  Date 

11.  Contract  Number 

NAS9-1261 

12  Serial  Number 

14  Ref  E.  O Number 

191-F 


7-Track  and  9-Track  1 , O 


17  Reason  for  Work  ^ verj_fy  the  new  version  HCO  will  process  both  7-Track  and  9-Track 


Test  Procedures 


HCO  Acceptance  Test 


a)  AT  the  tape  transports 


1)  Mount  9-Track  HCO  in  Gray  tape 
number  3165  on  the  9-Track  unit. 


2)  Mount  7-Track  HCO  - Gray 


Tape  number  3299  on  the  7-Track  unit. 


b)  At  the  teletype 


i) 

Type  PRO;  HCO  $J  to  load  the  production 

HCO.  Verify  that  * Monitor  is 

typed  on  the 

teletype. 

b)  2) 

•Type  CLEAR  twice  to  advance 

exposed  film  into 

take-up  magazine.  Verify  that 

* OK  is  type  on  th 

teletype  after  each  CLEAR 

3)  Type  Focus  to  Focus  the  Camera. 


REFER  TO  PROCEDURES  FOR  REQUIRED  SIGNATURES 


20  Final  Acceptance  Date 


REFER  TO  PROCEDURES  FOR  REQUIRED  SIGNATURES 
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TEST  PREPARATION  SHEET 

CONTINUATION  SHEET 
NASA  - LYNDON  B.  JOHNSON  SPACE  CENTER 


S/C  Cat. 


DESCRIPTION  (Print  or  Typo) 


4)  Type  CNTRL  I to  end  the  focus  pattern 


6)  Type  GO  to  initiate  processing  of  the  9-Track 


HCO  Gray.  Verify  that  the  starting  time  and 


frame  number  are  typed  on  the  teletype.  


7)  Type  End  Job  to  complete  processing  of  9-Track  HCO 


Gray  tape.  Verify  that  *0K  is  type  on  teletype. 


9)  Type  rewind/)  to  rewind  the  9-Track  HCO  Gra 


that  *0K. 


e CNTRL  D to  return  to  Debug.  Verify  that  *0K 


11)  Type  FCA;  HCO  $ J to  load  new  version  on  HCO  Gra 


12)  Type  unlabelled.  Verify  * OK  is  typed  on  the 


teletype. 


13)  Type  GO/)  to  initiate  processing  of  9-Track  HCO  Gray 


tape.  Verify  that  the  starting  time  and  frame  number 


are  typed  on  the  teletype. 


14)  Verify  that  the  elapsed  job  time,  frame  number,  page 


number  and  * End  of  File  are  typed  on  the  teletype  to 


signal  completion  of  data  tape  processing. 


e end  job  to  complete  processing  of  9- Track  HCO 


Gray  tape.  Verify  that  *0K  is  typed  on  the  teletype. 


JSC  FORM  1 225 A (JUL  65) 


COPY  1 
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TEST  PREPARATSON  SHEET 

CONTINUATION  SHEET 
NASA  - LYNDON  B.  JOHNSON  SPACE  CENTER 


DESCRIPTION  (Print  or  Typol 


16)  Record  the  Elapsed  Run  Time 


F 


to  rewind  the  9-Track  H 


that  *0K  is  typed  on  the  teletype. 


TPS  No. 

A 0 

s/c 

Cat. 

No. 

18)  Type  CNTRL  D to  return  to  Debug.  Verify  *DEBUG 


is  typed  on  the  teletype. 


19)  Type  FCA;  HCO  $J  to  load  the  new  version  HCO  Gray 


program  verify  that  *Monttor  is  typed  on  the  telet 


20)  Type  USE/2  . to  Change  7-Track  unit.  Verify  *0K 


is  typed  on  the  teletype. 


21)  Type  Tape  Type/8  to  change  to  7-Track,  800  BPI 


Verify  *0K  is  typed  on  the  teletype. 


22)  Type  Unlabelled/  verify  *OK  is  type  of  the  telety 


23)  Type  GO/  to  initiate  processing  of  7-Traek  HCO 


Gray  tape.  Verify  the  starting  time  and  frame 


number  are  typed  on  the  teletype. 


24)  Verify  that  the  elapsed  job  time,  frame  number. 


page  number  and  *End  of  File  are  typed  on  the 


teletype  to  signal  completion  of  data  tape  process 


25)  Type  end  job/  to  complete  processing  of  HCO  gray 


tape-..  Verify  that  *0K  is  typed  on  the  teletype. 


•VI  HA  € 2-' 


26)  Type  Clear  twice  to  advance  exposed  film  into  the 


up  magazine.  Verify  that  *0K  is  typed  on  the 


teletype  after  each  Clear. 
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TEST  PREPARATION  SHEET 

CONTINUATION  SHEET 
NASA  - LYNDON  B.  JOHNSON  SPACE  CENTER 


DESCRIPTION  (Print  or  Typo) 


b)  27)  Type  rewind/  to  rewind  the  7-Track  HCO  Gray.  Verify 


that  *0K  is  typed  on  the  teletype. 


28)  Type  CNTRL  D to  return  to  Debug.  Verify  *Debug  is 


typed  on  the  teletype. 


c)  AT  the  tape  transport 


1)  Dismount  9- Track  HCO  and  7-Track  HCO  tape. 


d)  Test  result  verification 


1)  Process  105mm  Film  containing  results. 


2)  View  the  resulting  105mm  microfiche  on  the  Bel! 


Howell  viewgraph. 


TPS  No. 

#/3 

S/C 

Cot. 

No. 
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1 3 System 

Computer  to  Microfilm 


15.  TPS  Short  Title 

HCO  Gray  Title  Acceptance  Test 


17  Reason  for  Work-  __  .•  a..  t. 


12.  Serial  Number 


14  Ref  E O.  Number 


To  verify  that  Title  Fiche  Development  for  HCO  Gray 


(FR80  Clarification  Form  A17) 


Insp. 


22C0NT  23.  NASA 


a)  At  the  7 -Track  Tape  Transport 


(1)  Mount  Tape  Number  3299 


b)  At  the  Tele tv 


1)  Type  FCArHCOSJ  to  load  HCO  proqram. 


r that  *MONITOR  is  typed  on  the 


Teletype. 


(2)  Type  CLEAR/^,  to  advance  exposed  film 


*OK  is  typed  on  the  telet' 


(3)  Type  UNLABELLED/&. . Verify  *0K  is  typed 


on  the  Teletype.  

(4)  Type  TAPE  TYPE  8$-.  Verify  *OK  is  typed 


9 Prepared  By 

Frank  Ashton 


erifv  *OK  is  typed  on  the 


120  Final  Acceptance  Date 


REFER  TO  PROCEDURES  FOR  REQUIRED  SIGNATURES 


REFER  TO  PROCEDURES  FOR  REQUIRED  SIGNATURES 
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TEST  PREPARATION  SHEET 

CONTINUATION  SHEET 
NASA  - LYNDON  B.  JOHNSON  SPACE  CENTER 


DESCRIPTION  (Print  or  Typo) 


e GOi<  Verify  Time  and  Frame  is  typed 


on  the  Teletype. 


(7)  When  ENTER  SOURCE  TAPE  is  typed  on  the 


Teletype,  type  3299 


8)  When  ENTER  COM  TAPE  is  t’ 


Teletype,  type  7-TRACK  . 


(9)  When  ENTER  ROLL  is  typed  on  the  Teletype, 


type  HCO  GRAY. 


CNTRL  A.  Verify  that  *MONITOR  is 


typed  on  the  Teletype. 


11)  Type  REWIND Verify  that  *OK  is  typed 


on  the  Teletype. 


(12)  Type  CLEAR 5-.  Verify  that  *OK  is  typed 


on  the  Teletype. 


(13)  Type  CLEAR  Jr.  Verify  that  *OK  is  typed 


on  the  Teletype. 


(14)  Type  CNTRL  D to  return  to  DEBUG.  Verify 


*DEBUG  is  typed  on  the  Teletype. 


c)  At  the  7-Track  Transport,  dismount  the  tape. 


d)  Test  Result  Verification;  ✓ 


(1)  Process  105mm  film  containing  results. 


2)  View  the  resulting  105mm  microfiche  on 


the  Bell  and  Howell  Viewgraph. 


JSC  FORM  122BA  (JUL  65) 


COPY  1 
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B. 11  COMA  UNIVAC  494  PRINT  PROCESSOR  FOR  105  mm  FICHE  (94U105) 

See  paragraph  2.11.  Revisions  are  as  follows: 

Date  Author  EO/TPS  No. 

6 November  1973  I.  J.  Mo'rgan  EO-204F  - TPS  A17 

TPS  A17  follows.  See  also  paragraphs  B.ll.l  through  B.H.5.,  figure 
B-13,  and  tables  B19  and  B-20. 
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MSCFOJM  63) 


NASA— SC— Co  ml.#  Houtfoit#  Taxes 
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TEST  PREPARATION  SHEET 

CONTINUATION  SHEET 

NASA  • MANNED  SPACECRAFT  CENTER 


E.O.  204F  fij'J 


DESCRIPTION  {Prim  Of  Typo) 


at  the  elapsed  lob  time,  frame 


typed  on  the  teletype  to  signal  completion 


of  data  tape  processin 


to  rewind  the  Univac  Test 


Tape  (Tape  11.  Verify  that  *0K  is  typed 


on  the  teletype. 


At  the  Tape  Transport 


1)  Dismount  the  Univac  494  Print  Acceptance 


Test  Tape  (Tape  1' 


Univac  494  Print  Acceptance  Test  Tape  2 


continuation  of  Job  2 from  Tape  1' 


At  the  Tape  Transport 


(1)  Mount  the  Univac  494  Test  Tape  2. 


(1)  Type  CONTINUE/ J,  to  signify  continuation 


of  Job. 


(2)  Verify  that  the  elapsed  job  time,  frame 


number,  page  number  and  *END  OF  FILE  are 


typed  on  the  teletype  to  signal  completion 


of  data  tape  processing. 


(3)  Type  END  JOB/  ).  to  complete  processing 


of  the  Univac  494  Test  Tape  (Tape  2). 


(4)  Type  CLEAR/ ^ twice  to  advance  exposed 


film  into  the  take-up  magazines.  Verify 


that  *OK  is  typed  on  the  teletype  after 
each  CLEAR/ J 


(5)  Type  REWIND/J  to  rewind  the  Univac  494 


Print  Acceptance  Test  Tape  (Tape  2) . 


Verify  that  *0K  is  typed  HX  on, the  teletype 
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TEST  PREPARATION  SHEET 

CONTINUATION  SHEET 

NASA  - MANNED  SPACECRAFT  CENTER 


TPS  No. 

E.O.  204F  ftl 7 

SIC 

Col. 

No 

DESCRIPTION  (Print  or  Typo) 


At  the  Tape  Transport 


(1)  Dismount  the  Univac  494  Print  Acceptance 


Test  Tape  (Tape  2) . ■ 


Test  Result  Verification 


T)  Process  105mm  film  containing  results . 


2)  View  the  resulting  105mra  microfiche  on  the 


Bell  & Howell  viewgraph.  Verify  that  the 


results  match  the  Jobs  as  described  in  the 


following  paragraphs. 
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B.ll.l  .Job  1,  Multifiche  Test.  This  job  shall  be  contained  in 
it's  entirety  on  tape  1.  It  shall  consist  of  the  proper  job 
separation-  and  titling  control  records  and  shall  -contain  data  to 
build  in  excess  of  207  full  pages  (64  lines  of  132  alphanumeric 
characters  each).  Data  pages  shall  be  constructed  as  illustrated 
in  figure  B-13  with  the  first  and  second  pages  of  that  figure  alter- 
nating. A control  record  for  forms  overlay  and  indexing  shall 
precede  every  set  of  64  data  records.  This  job  will  demonstrate 
■maximum  page  size,  multiple  pages  per  fiche,  multiple  fiches  per 
job  (two),  complete  character  repertoire,  the  five  forms,  and 
variable  indexing.  See  table  B-19. 

B.11.2  Job  2,  Multireel  Test.  This  job  shall  begin  on  tape  1 
and  continue  to  tape  2.  A job  separator  control  record  shall 
separate  jobs  1 and  2.  Sixteen  hundred  physical  blocks  of  data, 
to-  produce  full  pages  as  illustrated  in  figure  B-13,  shall  .be 
generated.  Only  382  physical  blocks  of  this  data  shall  be  placed 
on  tape  1,  followed  by  Univac ' s .Standard  End-of-File,  as  defined 
in  Univac' s 494‘  Uniservo  VIII  C Magnetic  Tape  Subsystem.  The 
remaining  data  shall  be  on  tape  2.  A control  record  for  forms 
overlay  and  indexing  shall  precede  every  set  of  64  data .records . 

The  form  number  and  indexing  values  (as  specified  for  job  1) 
shall  vary  from  one  record  .to  another.  Job  2 shall  demonstrate 
the  COMA’s  ability  to  handle  multireel  per  job  and  multireel  per 
page.  See  table  B-19. 

B.11.3  Job  3,  Carriage  Control  Test.  A job  separator  control 
record  shall  separate  jobs  2 and  3;  shall  be  followed  by  a title 
control  record  and  1024  logical  records  of  data.  The  data  pages 
shall  be  constructed  as  illustrated  in  figure  B-13.  The  line 
spacing  count  (byte  135io)  of  every  32nd  data  record  will  contain 
a number  322q  or  greater.  This  shall  cause  32  lines  of  data  to 
appear  on  each  page  (frame).  The  line  spacing  count  on  all  other 
records  of  data  shall  contain  a zero;  i.e.,  the  data  in  the  next 
record  shall  be  printed  on  the  next  line.  A forms  and  index  con- 
trol record  shall  not  be  present.  This  job  shall  show  COMA's 
ability  to  properly  process  the  line  spacing  count,  and  its  ability 
to  handle  the  absences  of  an  index  frame  for  the  105  mm  film. 

See  table  B-19. 
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B.11.4  Job  4,  Comic  Mode  Test.  A job  separator  record,  title 
control  record,  form  and  indexing  control  record,  and  'an'ima'ge'"' 
orientation  control  record  shall  precede  the  data  records.  The 
image  orientation  control  record  shall  indicate  COMIC  mode;  i.e. 
a 1 shall  follow  the  1 as  specified  in  the  Computer  Output  Micro- 
film System  A UNIVAC  494  Print  Processing  Requirements  Specifi- 
cation. The  data  records  shall  be  constructed  to  produce  three 
full  pages  of  data.  The  forms  control  record  shall  be  set  to 
a 4 without  indexing.  This  job  shall  test  COMA's  ability  to 
generate  the  COMIC  mode.  See  table  B-19. 

B.ll.S  Job  5,  Cine  Mode  Test.  A job  separator  record,  title 
control  record,  forms  and  indexing  control  record,  and  an  image 
orientation  control  record  shall  precede  the  data  records.  The 
image  orientation  control  record  shall  indicate  CINE  mode';  i.e., 
a 2 shall  follow  the  1 as  specified  in  the  Computer  Output  Micro- 
film System  A UNIVAC  494  Print  Processing  Requirements  Specifi- 
cation. The  data  records  shall  be  constructed  to  produce  a 
pattern  as  illustrated  in  figure  B-13.  One  hundred  ninety- two 
logical  records  of  data  shall  be  generated  to  produce  three  full 
pages  of  data.  The  forms  record  shall  be  set  to  a 4 without 
indexing.  This  data  shall  be  followed  by  an  end-of-file,  end-of- 
tape  control  record.  This  job  illustrates  COMA's  ability  to 
handle  the  CINE  mode  and  to  recognize  the  end-of-file,  end-of- 
tape  as  the  last  job  to  be  processed  from  this  tape.*  The  end-of- 
file,  end-of-tape  control  record  shall  be  followed  by  Univac's 
standard  end-of-file  as  defined  in  Univac's  494  Uniservo  VIII  C 
Magnetic  Tape  Subsystem.  See  table  B-19. 
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TABLE  B-19 


94U105  TESTS 


JOB/TAPE  NO. 
& JOB  NAME 

PURPOSE 

CONTENT/ FORMAT 

1/1 

COMA  1 

TEST  COMA'S  ABILITY  TO  GENERATE 
CHARACTER  REPERTOIRE  AND 
MAXIMUM  CHAR/ LINE/ PAGE 

GENERATE  FULL  PAGES  (64  LINES  OF 
32  CHARACTERS  EACH)  CONTAINING 
ALL  POSSIBLE  CHARACTER  CODES. 
DATA  PAGES  SHALL  BE  CONSTRUCTED 
AS  ILLUSTRATED  IN  FIGURE  B-8  AND 
THESE  TWO  PATTERNS  SHALL  BE 
ALTERNATED  PER  FRAME , 

TEST  COMA'S  ABILITY  TO  HANDLE 
TEST  DATA  OVERFLOW  FROM  FI CHE 
TO  FICHE  ' 

GENERATE  SUFFICIENT  DATA  (4000 
DATA  BLOCKS)  TO  PRODUCE  MORE  THAN 
ONE  FICHE.  ’ 

TEST  FIVE  DIFFERENT  FORMS  AND 
INDEXING  FOR  FULL  PAGES  AND 
FULL  MICROFICHE 

GENERATE  A CONTROL  RECORD  FOR 
FORMS  OVERLAY  AND  INDEXING.  THIS 
RECORD  SHALL  PRECEDE’  EVERY  64  DATA 
RECORDS.  THE  FORMS  OVERLAY 
RECORDS  SHALL  OCCUR  IN  THE  FOLLOW- 
ING ORDER: 
e BLANK  FORM 

© A BOX  ENCLOSING  THE  11  x 14 
' PRINTER  PAGE 
® 65  LINES 

©■  A BOX  ENCLOSING'  THE  11  x 14 
PRINTER  PAGE  WITH  65  LINES 
s A BOX  ENCLOSING  THE  11  x 14 
PRINTER  PAGE  WITH  65  HORIZONTAL 
LINES  AND  132  VERTICAL  LINES 
THE  INDEXING  VALUES  SHALL  VARY 
ON  EACH  OF  THE  FORM  CONTROL 
RECORDS. 

2/1  & 2 
COMA  2 

TEST  JOB  SEPARATOR  CONTROL 
RECORD 

GENERATE  A JOB  SEPARATOR  CONTROL 
RECORD  BETWEEN  JOBS  1 AND  2. 

TEST  MULTIREEL/JOB  AND  MULTI- 
REEL/PAGE 

1600  PHYSICAL  BLOCKS  OF  DATA  TO 
PRODUCE  A PATTERN  AS  ILLUSTRATED- 
IN  FIGURE  B-13  SHALL  BE  GENERATED 
FOR  THIS  JOB;  382  PHYSICAL  BLOCKS 
OF  DATA  SHALL  BE  GENERATED  ON 
TAPE  1 AND  THE  REMAINING  DATA 
SHALL  BE  PLACED  ON  TAPE  2.  A 
FORMS  OVERLAY  RECORD  SHALL  PRECEDE 
EVERY  64  DATA  RECORDS. 
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TABLE  B-19  (CONT'D) 


JOB/ TAPE  NO. 
& JOB  NAME 

PURPOSE 

CONTENT/ FORMAT 

3/2 

COMA  3 

CARRIAGE  CONTROL  TEST  CHECKS: 
COUNT  = 77o  AND  LAST  LINE  PLUS 
COUNT  > 77g 

IN  ADDITION'  TO  THE  CONTROL  RECORDS, 
GENERATE  1024  LOGICAL  RECORDS  OF 
DATA.  DATA  SHALL  BE  CONSTRUCTED 
AS  ILLUSTRATED; .IN  FIGURE  B-13.  THE 
LINE  SPACING  COUNT'  (BYTE  135a) 

OF  EVERY  32ND  RECORD  SHALL  BE°A 
NUMBER  32 io  OR  GREATER.  THE  LINE 
SPACING  COUNT  ON  ALL  OTHER  RECORDS 
SHALL  BE  A 0. 

TEST  ABSENCES  OF  THE  FORM  AND 
INDEX  CONTROL  RECORD 

NO  FORM  & INDEX  RECORD  SHALL  BE 
GENERATED  PRIOR  TO  THE  DATA 
RECORDS. 

4/2 

COMA  4 

TEST  COMIC  MODE  CONTROL  RECORD 
FOR  BOTH  16  MM  AND  105  MM  FILM 

GENERATE  A COMIC  MODE.  CONTROL 
RECORD  FOLLOWING.  THE  JOB  SEPARATOR, 
THE  TITLING,  AND  THE  FORMS  AND 
INDEXING  CONTROL  RECORDS;  192 
LOGICAL  RECORDS  OF  DATA  SHALL  BE 

generated:  • 

5/6 

COMA  5 

TEST  CINE  MODE  CONTROL  RECORD 
FOR  16  MM  FILM 

GENERATE  A CINE  MODE  CONTROL  • 
RECORD  FOLLOWING  THE  JOB  SEPARATOR, 
TITLING,  AND  FORMS  AND  INDEXING 
CONTROL  RECORDS;  192  LOGICAL 
RECORDS  OF  DATA  SHALL  BE  GENERATED. 
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TABLE  B-20 


USERS  FICHE  TITLES 


JOB  NO. 

TAPE  NO. 

USERS  TITLE 

1 

1 

UNIVAC  494  MULTI-FICHE  TEST 

2 

1-2 

UNIVAC  494  MULTIREEL  TEST 

3 

2 

UNIVAC  494  CARRIAGE  CONTROL  TEST 

4 

2 

UNIVAC  494  COMIC  MODE  TEST 

5 

2 

UNIVAC  494  CINE  MODE  TEST 
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B.12  COMA  UNIVAC  494  PRINT  PROCESSOR  FOR  16  mm  FILM  (94UV16] 

See  paragraph  2.2.  Revisions  are  as  follows: 

Date  Author  EO/TPS  No. 

6 November  1973  I.  J.  Morgan  EO-204F  - TPS  A18 

TPS  No.  A18  follows.  See  also  paragraphs  B.12.1  through  B12.5, 
figure  B-14,  and  tables  B-21  and  B-22. 
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Configuration 

Change 


Non-Configuration 

Change 


6,  S/C  No  /M<* *lel  Nn 


2.  IPS  No  E . 0 • 204F  A /* 


TEST  PREPARATION  SHEET 
NASA  - MANNED  SPACECRAFT  CENTER 


3 S/C  Cat. 


10  Drawings.  Documents.  Ocps.  & Port  Numba^s) 


13  System 


COMPUTER  ON  MICROFILM 


15  TPS  Short  Title 


UNIVAC  494  SOFTWARE  ACCEPTANCE  TEST  FOR  THE  16mm  FILM 


17.  Reason  for  Work  To  verify  the  software  development  on  the  COMA  System  for  the 


UNIVAC  494  Print  Processor  as  defined  in  PHO  SH-09846  and  as  required 


under  E.O.  204F. 


18  DESCRIPTION  (Print  or  Type) 

i. 

Univac 

494  Erint  Processor  Acceptance  Test  - Tape  1 

a . At 

the  Tape  Transport  (7-track  unit) 

(1) 

Mount  Univac  494  Acceptance  Test  Tape  1. 

19  Prepared  By 


(1)  Type  PRO;94UV16$J  to  load  the  Univac  494 


16mm  program.  Verify  that  ^Monitor  is  typed 


on  the  teletype. 

(2) Type  CLEAR/.! twice  to  advance  exposed  film_  j 

I 

into  the  take-up  magazine.  Verify  that  *0K  J 


is  typed  on  the  teletype  after  each  CLEAR/0 


(3)  Type  GO/jl  to  initiate  processing  of  Univac 

494  Acceptance  Test  Tape  (Tape  1).  Verify 

that  the  starting  time  and  frame  number  are 


' typed  on  the  teletype. 

(4)  Verify  that  the  elapsed  job  time,  frame  _ 

number,  page  number  and  »END  OF  FILE  arc 

typed  on  the  teletype  to  signal  comp  lotion 

o f_da_t  a_tape_p_r  oces  s_ing_. 

20  Final  Acceplancs  Dato 

R.  A.  MARKS 
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RETER  TO  PROCEDURES  FOR  RFQUiR 


Contractor 


NASA 


MS*  fCVM  <.MM  of. 


N/.SA — MSC — Con*I.f  Houston,  Tcxoi 


Copy  1 
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TEST  PREPARATION  SHEET 

CONTINUATION  SHEET 

NASA  - MANNED  SPACECRAFT  CENTER 


DESCRIPTION  {Print  or  Typo} 


the  Uni vac  Test  Ta 


. Verify  that  *0K  is  typed  on  the 


teletype,  


. At  the  Tape  Transport __ ___ 


Dismount  the  Univac  494  Print  Acceptance 


Test  Tape  (Tape  1' 


2.  Univac  494  Print  Acceptance  Test  Tape  2 


Continuation  of  Job  2 from 'Tape  1 


At  the  Tape  Transport 


Mount  the  Univac  494  Test  Tape  2. 


Type  CONTINUE/^!  to  signify  continuation 


of  Job, 


Verify  that  the  elapsed  job  time,  frame 


number,  page  number  and  *END  OF  FILE  are 


typed  on  the  teletype  to  signal  completion 


of  data  tape  processin 


to  complete  processing  of 


the  Univac  494  Test  Tape  (Tape  2' 


Type  CLEAR/ji  twice  to  advance  exposed  film 


into  the  take-up  magazines.  Verify  that 


*0K  is  typed  on  the  teletype  after  each 


CLEAR/. 


Type  REWIHD/^-  to  rewind  the  Univac  494 
Print  Acceptance  Test  Tape  (Tape  2) . Verify 


that  *0K  is  typed  on  the  teletype. 


At  the  Tape  Transport 


Dismount  the  Univac  494  Print  Acceptance 


msc  ro«M  IMS* (jui. 4V  NASA— MSC-G>rnl  Houilon  T.*>. 
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M5C  roust  \2H A {JUL  «5I 


NASA  — M5C  — Coml  Houston,  Texas 


Copy  l 
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B.12.1  Job  1,  Multifiche  Test.  This  job  is  contained  in  its 
entirety  on  tape  1.  It  contains  data  to  build  in  excess  of  207 
full  pages  (64  lines  of  132  alphanumeric  characters  each) . Data 
pages  are  constructed  as  illustrated  in  figure  B-14,  with  the 
first  and  second  pages  of  that  figure  alternating.  A control 
record  for  forms  overlay  precedes  every  64  data  records,  causing 
each  of  the  forms  to  be  generated  once  every  fifth  page.  This 
job  will  demonstrate  maximum  page  size,  complete  character  reper- 
toire, and  the  five  forms.  See  table  B-21. 

B.12.2  Job  2,  Multireel  Test.  This  job  begins  on  test  tape  1 
and  continues  to  test  tape  2.  A job  separator  control  record 
separates  jobs  1 and  2.  Sixteen  hundred  physical  blocks  of  data, 
to  produce  full  pages  as  illustrated  in  figure  B-14,  are  generated 
Only  382  physical  blocks  of  data  are  contained  on  test  tape  1,  and 
it  is  followed  by  Univac's  standard  end-of-file  as  defined  in  the 
Univac  494  Uniservo  VIII  C Magnetic  Tape  Subsystem.  The  remaining 
data  is  on  test  tape  2.  A control  record  for  forms  overlay  pre- 
cedes every  64  data  records.  The  form  number  (as  specified  for 
job  1)  varies  from  one  record  to  another.  Job  2 demonstrates  the 
COMA's  ability  to  handle  multireels  per  job  and  multireels  per 
page.  See  table  B-21. 

B.12.3  Job  3,  Carriage  Control  Test.  A job  separator  control 
record  separates  jobs  2 and  3.  It  is  followed  by  1024  logical 
records  of  data.  The  data  pages  are  constructed  as  illustrated 
in  figure  B-14.  The  line  spacing  count  (byte  135iq)  of  the  32nd 
data  record  .contains  77g.  This  causes  32  lines  of  data  to  appear 
on  the  first  page  (frame) . The  line  spacing  count  on  all  other 
records  of  data  contains  a zero,  with  the  exception  of  every  64th 
record  after  the  32nd  record.  Every  64th  record  contains  a 7 7 g 
line  count.  A forms  and  index  control  record  shall  not  be  present 
This  job  shows  COMA's  ability  to  properly  process  the  line  spacing 
count,  and  its  ability  to  handle  the  absences  of  forms  and  index 
control  record.  See  table  B-21. 

B.12.4  Job  4,  COMIC  Mode  Test.  A job  separator  record',  title 
control  record,  form  and  indexing  control  record,  and  an  image 
orientation  control  record  precedes  the  data  records.  The  Image 
orientation  control  record  indicates  COMIC  mode;  i.e,,  a 1 follows 
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the  I as  specified  in  the  Computer  Output  Microfilm  System  'A 
UNIVAC  494  Print  Processing  Requirements  Specification.  The 
data  records  are  constructed  to  produce  three  full  pages  of  data. 
The  forms  control . record  is  set  to  a 4 without  indexing.  This 
job  tests  COMA.' s ability  to  generate  the  COMIC  mode.  S.ee  table 
B-  21 , 

B.12.5  Job  5,  CINE  Mode  Test.  A job  separator  record,  title 
control  record,  forms  and  indexing  control  record,  and  an  image 
orientation  control  record  precedes  the  data  records.  The  image 
orientation  control  record  shall  indicate  CINE  mode;  i.e., 
a 2 follows  the  I as  specified  in  the  Computer  Output  Microfilm 
System  A UNIVAC  494  Print  Processing  Requirements  Specification. 
The  data  records  are  constructed  to  produce  a pattern  as  illus- 
trated in  figure  B-14.  One  hundred  ninety-two  logical  records  of 
data  are  generated  to  produce  three  full  pages  of  data.  The 
forms  record  is  set  to  a 4 without  indexing.  This  data  is  fol- 
lowed by  by  an  end-of-file,  end-of-tape  control  record.  This 
job  illustrates  COMA's  ability  to  handle  the  CLINE  mode  and  to 
recognize  the  end-of-file,  end-of-tape  as-  the  last  job  to  be 
processed  from  this  tape.  The  end-of-file,  end-of-tape  control 
record  is  followed  by  Univac's  standard  end-of-file  as  defined 
in  the  Univac  494  Uniservo  VIII  C Magnetic  Tape  Subsystem.  See 
table. B-21. 
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Figure  B-14  Alphanumeric  Data 
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333  4 5 6666  7 999  1 2 2 222  3 3 

1234567  234  9 8 3456  0 567  2 12  678  1 2 


Figure  B-14  (Cont'd) 
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TABLE  B— 21 


94UV16  TESTS 


JOB/TAPE  NO. 
& JOB  NAME 

PURPOSE 

FORMAT/ CONTENT 

1/1 

COMA  1 

TEST  COMA'S  ABILITY  TO  GENERATE 
CHARACTER  REPERTOIRE  AND  MAX- 
IMUM CHAR/ LINE/ PAGE 

GENERATE  FULL  PAGE  (64  LINES 
OF  132  CHARACTERS  EACH)  CONTAIN- 
ING ALL  POSSIBLE  CHARACTER  CODES. 
DATA  PAGES  ARE  CONSTRUCTED  AS 
ILLUSTRATED  IN  FIGURE  B-14 
AND  THESE  TWO  PATTERNS  ARE 
ALTERNATED  PER  FRAME. 

TEST  FIVE  DIFFERENT  FORMS  AND 
INDEXING  FOR  FULL  PAGES 

GENERATE  A CONTROL  RECORD  FOR 
FORMS  OVERLAY  AND  INDEXING.  THIS 
RECORD  PRECEDES  EVERY  64  DATA 
RECORDS.  THE  FORMS  OVERLAY 
RECORDS  OCCUR  IN  THE  FOLLOWING 
ORDER: 

e BLANK  FORM 

• A BOX  ENCLOSING  THE  11  x 14 
PRINTER  PAGE 

e 65  LINES 

• A BOX  ENCLOSING  THE  11  x 14 
PRINTER  PAGE  WITH  65  LINES 

® A BOX  ENCLOSING  THE  11  x 14 
PRINTER  PAGE  WITH  65, 
HORIZONTAL  LINES  AND  132 
VERICAL  LINES. 

THE  INDEXING  VALUES  VARY  ON  EACH 
OF  THE  FORM  CONTROL  RECORDS. 

2/1  & 2 
COMA  2 

TEST  JOB  SEPARATOR  CONTROL 
RECORD 

GENERATE  A JOB  SEPARATOR  CONTROL 
RECORD  BETWEEN  JOBS  1 AND  2. 

TEST  MULTI  REELS  PER  JOB  AND 
MULTI  REELS  PER  PAGE 

1600  PHYSICAL  BLOCKS  OF  DATA  TO 
PRODUCE  A PATTERN  AS  ILLUSTRATED 
IN' FIGURE  B-14  ARE  GENERATED 'FOR. 
THIS  JOB.  382  PHYSICAL  BLOCKS 
OF  DATA  ARE  GENERATED  ON  TAPE  1 
AND  THE  REMAINING  DATA  IS  PLACED 
ON  TAPE  2.  A FORMS  OVERLAY 
RECORD  PRECEDES  EVERY  64  DATA 
RECORDS. 
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TABLE  B—  21  (CONT'D) 


JOB/TAPE  NO. 
& JOB  NAME 

PURPOSE 

FORMAT/CONTENT 

3/2 

COMA  3 

CARRIAGE  CONTROL  TEST  CHECKS: 
COUNT  = 11 o AND  LAST  LINE  PLUS 
COUNT  > 11 Q 

IN  ADDITION  TO  THE  CONTROL  RECORDS, 
GENERATE  1024  LOGICAL  RECORDS  OF  - 
DATA.  DATA  CONSTRUCTED  AS 
ILLUSTRATED  IN  FIGURE  B-T4. 

PAGES  OF  DATA  ARE  GENERATED. 

TEST  ABSENCES  OF  FORM  AND  INDEX 
CONTROL  RECORD 

NO  FORM  AND  INDEX  RECORD  SHALL 
BE  GENERATED  PRIOR  .TO  THE  DATA 
RECORDS . 

4/2 

COMA  4 

TEST  COMIC  MODE  CONTROL  RECORD 
FOR  BOTH  16  MM  AND  105  MM  FILM 

GENERATE  A COMIC  MODE  CONTROL 
RECORD  FOLLOWING  THE  JOB 
SEPARATOR,  THE  TITLING,  AND  THE 
FORMS  AND  INDEXING  .CONTROL  RECORDS; 
192  LOGICAL  RECORDS  OF  DATA 
SHALL  BE  GENERATED.  - 

4/6 
COMA  5 

TEST  CINE  MODE  CONTROL  RECORD 
FOR  16  MM  FILM 

GENERATE  A CINE  MODE  CONTROL 
RECORD  FOLLOWING  THE  JOB  SEPARATOR, 
THE  TITLING,  AND  THE  FORMS  AND 
INDEXING  CONTROL  RECORDS;  192 
LOGICAL  RECORDS  OF  DATA  ARE- 
GENERATED. 
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TABLE  B-22 
USERS  FICHE  TITLES 


JOB  NO. 

TAPE  NO. 

USERS  TITLE 

1 

1 

UNIVAC  494  MULTI-FICHE  TEST 

2 

1-2 

UNI VAC  494  MULTIREEL  TEST 

3 

2 

UNIVAC  494  CARRIAGE  CONTROL  TEST 

4 

2 

UNIVAC  494  COMIC  MODE  TEST 

5 

2 

UNIVAC  494  CINE  MODE  TEST 
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B.13  COMA  LAC IE  STATUS  MODULE  (PFC,  COMA) 

See  paragraph  2.-13.  Revisions  are  as  follows. 

Date  Author  TPS  No. 

3 April  1975  J.  E.  Bennett  TPS  A16 

See  paragraph  B.15  for  TPS  A16. 
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B . 14  COMA  LACIE  STATUS  DISPLAY  (REVEAL] 

See  paragraph  2.14.  Revisions  are  as  follows: 

Date  Author  TPS  No. 

28  May  1975  J.  E.  Bennett  TPS  A15 

TPS  A15  follows. 
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A 

Configuration 

Change 

B 

Non*Configuration 

Change 

4,  Mod.  Shoot  Numb© 


6 S C No  Model  No- 


TEST  PREPARATION  SHEET 

NASA  - MANNED  SPACECRAFT  CENTER 


10  Growings,  Documents.  Ocp's  & Part  Numbers) 


>3  System 


COMA 


17  Reason  for  Work: 


9 Need  Dote 


11  Contract  Number 


12  Serial  Number 


14  Ref  E O Number 

TIRF  #1 


1(6  Wt.  Req 


VERIFICATION  OF  REVEAL  PROGRAM 


18  DESCRIPTION  (Print  or  Type) 


I.  TESTS 


A.  At  the  teletype;  enter  . 


• B.  Verify  that  *MONITOR  is  typed  by  program. 

C. Enter  REVEAL  STATUS  BLOCKS/ (CR)  _ 

II . VERIFICATION 


- - A, Verify  that  the  data  displayed  by  the 

program  is  the  same  as  the  printout  from 

R.T.O.S. 


19  Prepared  By 


: RtFER  to  procedures  for  required  signatures 


Contractor 


20  Final  Acceptance  Date 


REFER  TO  PROCEDURES  FOR  REQUIRED  SIGNATURES 


NASA  ^ 


MV  FOBM  I7?5  0in  A5I 


HASA---MSC  Com!.,  Houston,  Texas 


Copy  1 
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B.  15  COMA  LAC IE  PRINT  PROCESSOR  FOR  105  mm  FICHE  (LACPRT) 

See  paragraph  2.15.  Revisions  are  as  follows: 

Date  Author  TPS  No . 

3 April  1975  F.  C.  Ashton  Original  TPS  A16 

20  October  1975  J.  Gummelt  TPS  A20 

TPS  A16  and  A20  follow. 
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©Mis  of®® 

PAGE  IS  BOOB 


Y 

P I o Non-Configuration 
Ej  ^ Change 


10  Drawings.  Documents.  Ocp*s  & Part  Numbers) 


13  Syitem 

FR-80  MICROFILM  SYSTEM  (COM-A) 


15  TPS  Short  Title 

LACIE  PRINT  PROGRAM 


17  Reason  for  Wort  -jq  VERIFY  THE  NEW  LACIE  PRINT  PROGRAM  WITH  STATUS  TAPE 
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TEST  PREPARATION  SHEET 


NASA  - MANNED  SPACECRAFT  CENTER 


9 Need  Date 

April  4,  1975 


11.  Contract  Number 


12  Serial  Number 


Id  Ref  E O Number 

TIRF  #2751 


16  Wt  Req 


18  DESCRIPTION  (Print  or  Type) 


Test  File  1 - Reel  14360 


Single  Reel  with  6 Title  Records. ' 

Test  File  2 - Reels  917  and  13067 

Two  Reel  File  containing  three  Title , Records 
_with_ indexing . 

1.  Base _Line_Single  Reel  File  

Program  PRO;105PR$J 


iBsai 


22  CONT  | 2J  NAS* 


PAGE 


TIME 


.1.. Base  Line  Multi-Reel  File  Program  PRO;  1Q5PR$J 
Tapes  917,  13067 


3.  New  Program  Single  Reel  File  _ 

Program  FCA?LACPRT$J 


Julian  Data  75095 


; Tape  Number  A14360 

120  Final  Acceptance  Date 


_ REFER  TO  PROCEDURES  FOR  REQUIRED  SIGNATURES 


Contractor 


REFER  TO  PROCEDURES  FOR  REQUIRED  SIGNATURES 


NASA — MSC — Coml»,  Houston,  T*xo» 
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Page  2 of  4 

FRAMES  PAGES  / ¥ 1 TIME  

4.  New  Program  Multi-File 
Program  FCA;LACPRT$J 
Tape  917,  13067 

Type  In:  Julian  Data  75095 

Tape  Number  A9I7 
Continue 

Tape  Number  A13067 

FRAME  & PAGE  % 6>6>  TIME  

5.  New  Program  Single  Title 
Program  FCA: LACPRT$J 

Type  In:  Search  Title  /l,  1 

Julian  Data  75095 
Tape  Number  B13067 

PRAME  7*  PAGE  j ftp  TIME  / » 2 / 

6.  New  Program  Unlabeled 

Program  FCA;LACPRT$J 
Tapes  917,  13067 
Type  In:  Unlabeled 

SKP 

Julian  Data  75095 
Tape  Number  C9-17 
Rewi  nd 

Continue 

Tape  Number  C13067 

FRAMES  (3 PAGE  TIME  

7 .  New  Program  Read  Error 
Program  FCA;LACPRT$J 
Tape  14360 

Type  In:  Julian  Date  75095 


Tape  Number  B14360 
Continue 

(After  Forced  Read  Error) 
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Page  3 

Next  Title 

ot  (After  CNTR  I)  / ' /}  t 

FRAME p PAGE  TIME  / 

8.  New  Program  Termination  Due  to  Error 
Program  FCA;LACPRT$J 

Tape  14360 

Type  In:  Julian  Date  75095 

Tape  Number  C14360 
Termination  Due  to  Error 
(After  CNTL  I) 

Dump  Status  Tape 

(After  Load  Tape) 

9.  Status  Tape  Verification 
Program  M$J 

Type  In  9BETR 

10.  New  Program  - No  Status 
Program  FCA;LACPRT$J 
Tape  Number  14360 

Type  In:  Status  Job/1 

Julian  Date  75095 
Tape  Number  D14360 
Dump  Status  Tape 

(After  Load  Tape) 

FRAMES  9 PAGE  I TIME  X.S.fi 

11.  No  Status  Verification 
Program  M$J 

12.  New  Program  - Wipe  Status  Black 
Program  FCA;LACPRT$J 

TAPE  14360 

Type  In:  Julian  Data  75095 

Tape  Number  E143j60 
Dump  Status  Tape 

(After  Load  Tape) 
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13.  Verify  Status  Block  Cleared 
Program  M$J 

14.  Process  Film  and  Verify  Data  Content,  Titles 
Processed  and  Indexing. 
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1*  a Configuration 

T M Change 

Y 

p q Non-Configuration 

E IS  Change 

4 Mod  Sheet  Number 
6 S/C  No  /Model  No 


TEST  PREPARATION  SHEET 

NASA  • LYNDON  8.  JOHNSON  SPACE  CENTER 


10.0™ 


- No  /Model  No  7 Date  [8.  Time 

JOctober  20,  1975 

T3 w i ngl. rOocumonts."0'cp's,  & PirtNurribr'rls]  ‘ ~ ' 


2 TPS  No. 

-&±*-  fiZP 

3 S/C 

Cat  No. 

5.  Page 

1 of  2 

9 Need  Date 

12  Serial  Number 


13  System  ' 14  Ref  E O'  Number 

COMA 7?/fV"  /?0/ 

T'PS  Short  fitle  " * ' 116  Wt  Req“ 

. L&CfB_  .Print  - Julian-Date  Calculation 

1 7.  Reason  for  Work  # ( - - ^ r 

_To_  verify  validity  .of  software  developed  to  allow 

calculation  of  Julian  Date  from  input  calendar  date.  Previously 

the  Julian_ date  had  to  be  input  directly.  ~ 

18  DESCRIPTION  (Prim  or  Type)  -IL 1 

..  . Tech  22CONT  23  NASA 

. TESTS  ~ ' 

1.  GENERAL 


1.1_  Tape  Input.  This  tape  is  a lac  IE  Print  Tape. 

1.2  Teletype  Input.  Date  to  be  converted  will  be  eijter^d 
from. teletype. _ 

1.3  Film.  105mm  Film  will  be  output. 


1.4  Status  Tables.  Tables  containing  information  o 


files  statused  will  be  displayed  on  the  monitor. 


5u Type  at.t.  U-  on  teletype.  Programs  to  be 

used  will -be  read  into  core. 


6.  Mount  LACIE  print  tape  on  9-track  drive. 


REFER  TO  PROCEDURES  FOR  REQUIRED  SIGNATURES  | REFER  TO  PROCEDURES  FOR  REQUI  RED  SIGNATURES 


19  Prepared  By  20  Final  Acceptance  Date 

Jim  Gummelt 
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TEST  . REPARATION  SHEET 

CONTINUATION  SHEET 

NASA  - LYNDON  B.  JOHNSON  SPACE  CENTER 


TPS  No. 


S/C 


— — — * - — - - t — 

DESCRIPTION  (Print  or  Typo) 

7. 

Type  FCA ; L ACPRT $ J . Monitor  will  display 

run  options. 

8. 

Type  GO/ '2  . 

. Teletype  will  print 


10.  Type  today 1 s date  in  the  form  MM/DD/YY. 


11.  Teletype  will  print  ENTER  TAPE  NUMBER. 


12.  Type  tape  number  13731^-.  Print  tape  will 


a complete  page  is  done. 


Type  TERM/ . 


twice , 


17. 

Type  REVEAL$(7. 

18. 

Type  REV/-V  . 

Monitor  will 

display  status 

with  Julian  date. 

19. 

Film  (1  fiche) 

will  reflect 

accurate  infors 

JSC  FORM  1225A  (JUL  65) 
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